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APPENDIX  D 
CORRECTIONS,  ADJUSTMENTS,  AND  SMALLER  CHANGES  IN  STABL 

Besides  the  direct  modifications  of  the  STAJSL  program  described 
in  Chapter  IV,  some  corrections,  adjustments,  and  smaller  changes  have 
been  made  in  the  program  during  the  period  from  October  1975  to  June 
1977.  A  chronologic  listing  of  all  changes,  including  the  modifications 
described  in  Chapter  IV,  is  found  in  Table  D.l. 

D.l  ADJUSTMENTS  FOR  THE  IBM  COMPUTER 

Some  of  the  changes  are  related  to  the  conversion  of  STABL  from  the 
CDC  6500  computer  at  Purdue  University  to  the  IBM  360  computer  at  ISHC's 
Computer  Center,  Indianapolis.  This  is  the  case  for  changes  number  5  and 
6  in  Table  D.l.  It  was  felt  that  whenever  a  change  to  adjust  to  the  IBM 
computer  was  also  compatible  with  the  CDC  computer,  it  should  be  used  in 
both  program  versions.  This  reduces  the  differences  between  the  two 
program  versions. 

D.2  DEBUGGING  OF  STABL 

D.2.1  Errors  in  the  Anisotropic  Soil  Option 

Direct  errors  were  found  in  the  anisotropic  soil  option,  where  in 
subroutine  ANISO  the  check  of  increasing  order  of  anisotropic  direction 
ranges  stopped  after  the  second  range  due  to  an  incorrect  "00  TO"  state- 
ment number.  Also,  the  statement  to  print  out  the  data  was  passed  over, 
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again  caused  by  an  incorrect  "GO  TO"  statement  number.  These  two  errors 
did  not  result  in  actual  errors  in  the  stability  calculations.  However, 
the  direction  ranges  are  specified  in  degrees,  and  were  later  compared 
to  angles  in  radians.  This  caused  the  strength  parameters  defined  for 
the  first  anisotropic  direction  range  to  always  be  used,  no  matter 
which  direction  range  applied  to  a  particular  part  of  the  failure  sur- 
face. This  error  was  corrected  by  converting  the  angles  for  the  direc- 
tion ranges  from  degrees  to  radians  before  returning  from  subroutine 
ANISO.  Further,  an  error  in  subroutine  FACTR  had  the  result  that  the 
first  anisotropic  direction  range  would  not  be  assigned  its  anisotropic 
strength  parameters.  These  two  errors  had  the  combined  result  that  the 
isotropic  soil  strength  parameters  were  used  instead  of  the  anisotropic. 
This  error  has  been  corrected. 

In  addition,  the  program  is  modified  so  that  an  anisotropic  soil 
with  only  one  direction  range  cannot  be  defined,  since  this  is  meaning- 
less. This  is  reflected  in  a  change  in  error  code  AI05. 

D . 2 . 2  Infinite  Loop  in  the  Circular  Surface  Generator 

An  error  in  the  circular  surface  generation  routine  was  found  al- 
most by  accident. 

The  case  was  as  follows.  A  deep  circular  search  was  specified  with 
clockwise  and  counterclockwise  direction  limits  of  -  60°  and  -  30°,  re- 
spectively. Also  a  minimum  elevation  was  specified. 

The  first  line  segment  for  a  circular  failure  surface  is  generated 

at  an  angle  9  with  the  horizontal,  and  A9    and  A9  .   are  determined 

max      nun 

as  described  by  Siegel  (1975a,  p.  8l  ff. ).  Next,  A9  is  selected  between 
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A8    and  A9  .  .  At  this  point,  the  angle  determined  by  9  +  A9  is 
max       min  *~    *       i  j 

checked  against  the  vertical.   If  it  exceeds  the  vertical,  an  overturn- 
ing slip  circle  would  result,  and  this  is  not  allowed. 

For  every  new  line  segment  that  is  generated,  the  inclination  is 
checked,  and  if  it  exceeds  the  vertical  the  following  adjustment  is  made. 

First  it  is  determined  if  it  is  possible  to  generate  a  surface 

that  does  not  turn  over,  from  this  particular  first  line  segment.   If 

it  is  not,  the  surface  is  rejected.   If  it  is,  A9    is  reduced  to  the 

max 

current  value  of  A9  (A9  )  and  a  new  A8  (A9  )  is  selected  which  will  be 
less  than  the  previous  one,  see  Figure  D.l.  The  surface  is  generated 
again,  starting  with  the  second  line  segment. 

In  our  particular  problem,  this  new  surface  happened  to  extend  be- 
low the  minimum  elevation  specified  (y  .  )  to  which  a  failure  surface 

y  mm 

is  allowed  to  extend.   When  this  happens,  the  program  determines  if  it 

is  possible  to  generate  a  surface  from  the  first  line  segment  that  does 

not  extend  below  y  .  .   If  it  is  not,  the  surface  is  rejected.   If  it 

min 

is  possible,  A9  .   is  increased  to  the  current  value  of  A9  (A9_)  and  a 
e  min  2 

new  A9  (A9_)  is  selected  between  A8„  and  A8-. 

What  occurred  in  this  particular  problem  was  that  a  surface  with 
this  first  line  segment  was  impossible  to  complete  without  either  ex- 
tending below  the  y  .   depth  or  turning  over  (exceeding  vertical). 

min 

This  would  result  in  a  continuous  increase  in  AC  .   and  decrease  in 

min 

A9    until  the  two  values  became  almost  identical. 

max 

At  this  point  two  possibilities  existed.   A9    could  decrease  so 

r        e  max 

much  that  it  was  impossible  to  generate  a  surface  that  did  not  extend 

below  the  minimum,  elevation  y  .  .   In  this  case,  the  surface  would  be 

min 
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rejected  (and  counted  rejected),  and  a  new  surface  would  be  generated 

with  a  new  first  line  segment.   The  other  possibility  was  that  A6  . 

would  increase  so  much  that  it  was  impossible  to  generate  a  surface  that 

did  not  turn  over.   Ibis  situation,  however,  was  not  checked,  because 

the  check  for  possible  generation  of  non-overturning  surfaces  was  based 

on  the  initial  value  of  A9  .  .   So  if  a  new  A6  .  ,  caused  by  a  con- 

min  min 

flict  with  y  .  ,  prevents  generation  of  non-overturning  circular 
mm 

failure  surfaces,  the  program  would  continue  in  an  infinite  loop, 

decreasing  A9    for  each  loop,  but  not  below  the  value  of  AG  .  . 
max  min 

This  is  apparently  what  happened  in  the  problem  that  was  analysed. 

To  avoid  this  situation,  an  additional  counter  was  introduced,  so 
that  no  more  than  20  trials  are  allowed  to  continue  a  circular  failure 
surface  from  the  first  line  segment.   If  the  20  trials  are  reached, 
the  surface  will  be  rejected  and  a  new  surface  generated.   If  more  than 
200  surfaces  are  rejected  in  the  attempt  to  generate  a  single  trial 
failure  surface,  the  program  is  terminated.   This  number  was  originally 
500,  but  this  was  felt  to  be  too  large. 

D.2.3  Unit  Weight  of  Water 

The  STADL  User  Manual  [Siegel  (1975b)]  states  that  any  consistent 
set  of  units  can  be  used  in  the  STABL  program.   However,  the  unit  weight 
of  water  was  arbitrarily  defined  as  62. h,   implying  pcf.   If  units  other 
than  pounds  and  feet  were  used,  the  result  would  not  be  correct. 

To  make  STABL  able  to  handle  other  unit  systems,  the  unit  weight 
of  water  was  made  an  input  variable.   If  the  unit  system  is  pounds  nnd 
feet,  the  value  0.  (real  zero)  may  be  specified,  in  which  case  the  pro- 
gram will  use  the  default  value  of  62. h. 
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D.2.1*  The  TURKEY  Trace  Key 

During  the  error  traces  of  the  STABL  program,  Mr.  Bellinger  from 
the  ISHC  Computing  Center,  Indianapolis,  introduced  a  special  trace  key- 
subroutine,  named  TURKEY,  for  "Trace  under  referrel  key". 

The  TURKEY  subroutine  made  it  possible  by  means  of  a  3ingle  data 
card  to  control 

(a)  vhich  trace  keys  should  be  activated,  and 

(b)  the  amount  of  output  for  a  trace  key  run. 

The  use  of  the  TURKEY  subroutine  is  illustrated  in  Table  D.2.  The 
parameters  are: 

KLO   -   Integer   number,  indicating  the  lowest  key  number 
of  the  trace  keys  to  be  activated. 

KHI   -   Integer  number,  indicating  the  highest  key  number 
of  the  trace  keys  to  be  activated. 

KMX  -   Integer  number,  sets  the  limit  for  the  total 
number  of  trace  key  activations. 

Z   -  Real  number,  a  dummy  variable,  used  in  the  call 
for  TURKEY  when  an  individual  trace  key  has  a 
lower  number  of  variables  to  trace,  than  the  1^ 
variables  defined  for  the  TURKEY  subroutine. 

In  Table  D.2,  KLO  and  Kill  are  specified  as  20  and  h0,    respectively. 
The  result  is  that  trace  keys  number  20  through  number  ho   will  be  acti- 
vated, including  trace  key  number  30  as  illustrated  in  the  Table.   KMX 
is  chosen  as  500,  limiting  the  amount  of  trace  key  output  to  a  total  of 
500  activations . 

When  the  computer  output  indicated  in  which  of  the  program  subrou- 
tines an  error  occurred,  the  trace  key  search  was  limited  to  this  sub- 
routine and  eventuallv  related  subroutines. 
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During  some  of  the  error  tracings,  the  TURKEY  subroutine  as  shown 
in  Table  D.2,  was  modified  slightly.   This  was  done  in  cases  where  the 
error  by  the  initial  trace  was  found  to  occur  in  a  failure  surface  ge- 
neration process,  and  after  a  certain  number  of  surfaces  had  already 
been  successfully  generated.   The  TURKEY  subroutine  was  modified  so 
that  KLO  would  indicate  the  number  of  surfaces  to  be  generated,  before 
a  concentrated  and  more  extensive  trace  key  search  was  activated. 
Contrary  to  the  original  use  of  TURKEY,  this  required  that  only  those 
trace  keys  that  were  to  be  used,  should  be  left  in  the  program.   This 
disadvantage,  however,  could  have  been  eliminated  by  introducing  a 
fourth  integer  variable  in  the  call  for  TURKEY. 

D.3  OTHER  ADJUSTMENTS 

D.3.1  Modifications  in  the  Irregular  Surface  Generator  (RANDOM) 

Sierel  (1975a)  states  that  whenever  an  irregular  surface  intersects 
a  surface  generation  boundary  (specified  with  command  code  LIMITS),  the 
angle  limitations  for  surface  generation  are  modified  accordingly,  and  a 
new  direction  for  the  last  line  segment  is  selected.  This,  however,  was 
not  done . 

The  original  STABL  program  treated  this  case  as  follows: 

(1)  If  a  total  surface  was  generated,  but  an  intersection  with 
a  limitation  boundary  occurred  for  the  last  line  segment , 
the  whole  surface  was  rejected. 

(2)  If  at  any  point  during  the  generation  of  a  surface,  inter- 
section with  a  limitation  boundary  occurred,  the  following 
procedure  was  applied: 
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(a)  If  the  boundary  was  downward  deflecting,  the  surface 
was  rejected. 

(b)  If  the  boundary  was  upward  deflecting,  a  new  direction 
for  the  last  line  segment  was  tried,  but  without  modi- 
fying the  initial  angle  limitations. 

After  the  modifications,  STABL  treats  the  case  as  follows: 

(1)  If  a  total  surface  is  generated,  and  an  intersection  with  a 
limitation  boundary  occurs  for  the  last  line  segment,  another 
line  segment  is  selected  in  the  direction  of  the  upper  angle 
limitation  if  the  boundary  is  upward  deflecting,  and  in  the 
direction  of  the  lower  angle  limitation  if  the  boundary  is 
downward  deflecting. 

(2)  If  at  any  point  during  the  generation  of  a  surface,  inter- 
section with  a  limitation  boundary  occurs,  the  following 
procedure  is  used: 

(a)   If  intersection  occurs  with  a  downward  deflecting 

boundary,  the  upper  angle  limitation  G  ,  is  decreased 
to  the  current  value  of  0,  and  a  new  G  is  selected  be- 
tween the  lower  angle  limitation  8  ,  and  G  .   Fee  Figure 

L        U 

D.2.   If  this  new  line  segment  still  intersects  a  limita- 
tion boundary,  a  third  line  segment  is  tried  with  G  =  8r 
if  the  boundary  is  downward  deflecting,  and  P  =  G   if  the 
boundary  is  upward  deflecting. 

If  this  line  segment  also  intersects  a  limitation  boun- 
dary, the  surface  is  rejected. 
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(b)   If  the  intersection  occurs  with  an  upward  deflecting 

boundary,  the  lower  angle  limitation  G  ,  is  decreased  to 

the  current  value  of  9,  and  a  new  value  of  9  is  selected 

between  6.  and  8  . 
L      u 

If  this  new  line  segment  also  intersects  a  limitation 
boundary,  the  procedure  outlined  under  (a)  is  followed. 


D.3.2  Modifications  of  Errors  PC11  and  BK10 

To  avoid  an  infinite  loop  in  the  program,  if  for  some  reason  a  sur- 
face cannot  be  successfully  generated,  a  counter  is  included  in  all  sur- 
face generation  routines.   If  a  certain  number  of  surfaces  are  rejected 
in  the  attempt  to  generate  a  single  trial  failure  surface,  the  errors 
RC11  (for  circular  or  irregular  surfaces)  or  BK10  (for  sliding  block 
surfaces)  will  be  displayed,  and  the  program  terminated. 

The  number  of  surfaces  that  could  be  rejected  before  the  program 
was  aborted,  was  originally  500.   This  number  was  felt  to  be  too  large, 
and  was  reduced  to  200. 

Also  it  was  felt  that  if  most  of  the  surfaces  were  generated  when 
this  error  occurred,  it  would  be  reasonable  to  have  the  results  printed 
out  for  these  surfaces.  Hence  the  program  was  modified,  so  that  if  a 
minimum  of  ten  surfaces  are  successfully  generated,  the  results  of  the 
ten  most  critical,  will  be  displayed,  despite  the  errors  RC11  or  BK10. 

D.3.3  Format  Adjustments 

Several  changes  were  made  to  provide  a  better  format  for  the  out- 
put of  the  STABL  results. 
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D.3.3.1  Format  Statements 

The  message  about  the  ten  most  critical  surfaces,  as  originally 
placed  in  the  program,  would  be  activated  for  the  CIRCLE  and  RANDOM 
search  routines,  but  not  for  the  BLOCK  routine.   This  was  corrected. 

Also, the  factor  of  safety  was  displayed  with  four  digits  after 
the  decimal  point.   Since  the  value  is  calculated  with  an  accuracy  of 
±  0.005,  it  seemed  unreasonable  to  display  more  than  three  digits  after 
the  decimal  point.  This  was  done. 
D.3.3.2  Misleading  Factors  of  Safety 

A  more  significant  modification  is  that  related  to  surfaces  where 
a  misleading  factor  of  safety  is  obtained. 

In  the  original  STABL  program  these  surfaces  were  displayed  with 
coordinate  points,  but  not  with  a  factor  of  safety,  except  for  specified 
surfaces.  Further,  they  were  still  included  in  the  number  of  surfaces 
generated,  and  if  their  factor  of  safety  was  among  the  ten  most  critical, 
they  would  be  listed  among  these  surfaces.  This  occurred  frequently,  be- 
cause the  misleading  factors  of  safety  often  are  low  (see  Chapter  IV, 
Section  U.5.5) .  Therefore,  if  misleading  surfaces  occurred,  one  would 
have  to  compare  the  surface  coordinates  of  the  ten  most  critical  sur- 
faces with  those  of  the  misleading  surfaces,  to  avoid  using  a  mislead- 
ing factor  of  safety. 

In  a  few  cases  all  ten  most  critical  surfaces  were  misleading,  so 
that,  even  though  the  program  did  calculate  some  factors  of  safety  that 
were  not  misleading,  none  of  these  would  be  displayed,  and  the  output 
would  contain  no  valid  results . 
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To  avoid  this  awkward  situation,  the  program  was  modified,  so  that 
when  a  factor  of  safety  is  misleading,  the  surfac  •  coordinates  are 
printed  out  as  before.   Then  the  misleading  factor  of  safety  is  printed 
out,  whereupon  it  is  assigned  a  value  of  500  to  avoid  being  counted 
among  the  ten  most  critical.  Only  if  less  than  ten  surfaces  with  non- 
misleading  factors  of  safety  are  generated,  will  a  misleading  surface 
be  displayed  among  the  ten  most  critical,  but  with  a  factor  of  safety 
of  500. 
D.3.3.3  Changes  of  the  Calcomp  Plot 

The  format  of  the  Calcomp  plot  was  altered  to  include  print  of 
title  and  factor  of  safety. 

After  the  option  of  several  piezometric  surfaces  was  introduced,  it 
was  felt  desirable  to  mark  these  surfaces  specifically,  to  distinguish 
them  from  the  soil  boundaries.  This  was  provided  by  writing  a  "W" 
(for  WATER)  on  the  points  that  define  the  piezometric  surfaces. 

In  the  same  manner,  limitation  boundaries  for  surface  generation  are 
indicated  with  an  "L"  (for  LIMITS)  and  surcharges  are  marked  with  a  "P". 
D.3.3.U  Updating  of  Comment  Cards 

The  STABL  program  is  very  well  documented  in  terms  of  comment 
statements  in  the  program  itself.   These  comments  explain  the  functions 
of  the  main  program  and  each  of  the  subroutines,  and  define  the  varia- 
bles used  in  each  of  these  subdivisions  of  the  program. 

Some  of  these  comment  statements  had  not  been  updated  according  to 
the  latest  changes  made  by  Siegel  during  the  development  of  STABL. 

Later,  changes  and  corrections  made  by  the  author,  were  not  always 
followed  by  updating  of  comment  statements. 
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A  thorough  updating  of  the  comment  statements  were  made  in  November 
19T6.   Changes  made  after  this  date  were  followed  hy  corresponding 
changes  in  the  comment  statements. 
D. 3.3.5  Flow  Chart  of  STABL 

Although  the  STABL  program  in  itself  is  well  documented  with  more 
than  U000  comment  statements  ,  it  was  felt  that  a  flow  chart  showing  the 
individual  steps  in  the  program  on  a  large  scale  level  could  be  useful. 
This  was  made,  and  is  shown  on  Figure  D.3. 
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Table  D.2 

Illustration  of  the  Use  of  Subroutine  TURKEY 
for  Error  Trace  of  the  GTADL  Program 
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900 


TDL=.0001 

RD=3.  1415927/-180. 

REAB<5.900>    Kl  0> KHI . KMXi Z 

FORMATC-HS.FS.  U> 

URITE<6>900>  KLD.KHI.KtlX.Z 

CALL  TURKEY<KLD»KHI»KMX>Z»ZiZ»2»2»2»2i2fZiZiZ> 


STBL  £58 
STBL  £6-0 
TURKEY  A 
TURKEY  E 
TURKEY  C 
TURKEY  P 


C 

c 
c 
c 


CHECK  FDR  GROUND  SUPFACE  INTERSECTION 


DO  £  I=JJ>NTOP 

CALL  INTSCT<BNDS< Ii i )> BNBSC I . £!> » ENDSC I » 3) . ENDS< I  >  4> , SURFU , 1 ) , 
1    SURF<1p£>jSURF<2j  1>»SIJRF<£»£>*>UNTiYINT>  INTS^ 

CALL  TURKEY<30>30» INTSjBMDS<I> 1 > - ENDS< I . £> . BNBS< I»3>iBNBS<I»4>» 
1    SURFU . 1 ) • SURF <1 . £) i SURFCS* 1 >  »  SURF<2>  £> . XINTi  YINT.  Z> 

IFCINTS.EQ. 0>GO  TO  £ 

IF<<BNDSCI» n -SURF (1 i 1>>.LE.T0L>GD  TO  £ 

SURF<£il)=XINT 


RAMS 
RAMS 

RAMS 

ram: 

RAMS 

RAMS 
RAMS 
TURKEY?- n 
TURKEY30 
RAMS  ?06 
RAMS  7  0S 
RAMS  710 


69£ 

696 

693 
700 
'02 

'04 


SUBROUTINE  TURKEY<KEY>  I  >  J.  A,  B>  C»  D>  E.F>G>  H,  D.  Pi  G> 

DATA    IKW>  KPR/6-'.  NDU/1/ 

GD  TD  <100.£00)»NDU 
100  MDU=£ 

KLD=KEY 

KHI  =  I 

KMX=J 

GD  TD  999 
£00  IFaiiD.GT.KMX  .DP.  KEY.LT.KLD  .DR.  KEY. GT. KHI >GO  TD 

URITE<KPR>300>  KEY*  I*  Ji  A»  B»C»B>E»F>QjHjD»P 
300  FDRriAT<*n*,*xXX  KEYM»  I3>£14.  10F10.5) 

IHO=  IDD+1 
999  RETURN 

END 


999 


TURKEY 

TURKEY 

TURKEY 

TURKEY 

TURKEY 

TURKEY 

TURKEY 

TURKEY 

TURKEY 

TURKEY10 

TURKEY 11 

TURKEY12 

TURKEYl? 

TURKEY  14 


£0 
PRDFIL 
ETC. 


40  500  99. 
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MAIN      PROGRAM     STABL 

READS  AND  DinrUS  [XI  (111  ION  or  COMMANDS. 
INITIATES  AND  TERMINATES  PLOTTING  DEVICE. 


392a 


Command  Code 
PROFIL 

SOIL 


AN  I  SO 


HATER 


LOADS 


EQUAKE 


« 


CALL 
CALL 

CALL 
CALL 
CALL 

CALL 
CALL 


EXECUT         CALL 

(onl>  alter 
SUBFAC  or  SURFJIS) 

CALL 


CALL 


LIMITS 


RANDOM 


If  faulty  data 


CALL 

CALL 

CALL 

CALL 
CALL 


PROFIL 

READS    AND    PRINTS    CHORUM    TITLE. 
RIAIIS,     CHECKS,     STORES    AND    PRINTS 

ENTRY 

SOU     PROFILE     DATA. 

SOILc 

READS,    CHECKS,     STORES    AND    PRINTS 
SOU      DATA. 

calls  READER 

-     TO    READ    DATA    IN    FREE    FORMAT. 

CALLS    QUIT 

-     II     DATA    ARE     FAULTY. 

ANISO 

calls  READER  R  QUIT 


READS,  CHECKS,  STORES  AND  PRINTS 
ANISOTROPIC  SOIL  DATA. 


WATER 

calls  READER  P.  QUIT 


READS,  CHCCKS,  STORES  AND  PRINTS 
DATA  FOR  PIEZOMETRIC  SURFACES. 


LOADS 

CALLS  INISC2 

calls  READER  8  QUIT 


READS,  CHECKS,  STORES  AND  PRINTS 
DATA  FOR  SURCHARGE. 


EQUAKE 

call r READER 


READS,  STORES  AND  PRINTS  PSEUDO- 
STATIC  EARTHOOAKE  COEFFICIENTS 
AND  CAVITATION  PRESSURE. 


SURFAC 

calls  READER  I   QUIT 


READS,  CHECKS,  STORES  AND  PRINTS 
DATA  FOR  A  SPECIFIED  FAILURE 
SURFACE . 


SCALER 


DETERMINES  THE  SCALE  TO  FIT 
PROBLEM  GEOMETRY  TO  SIZE  OF  PLOT. 


PLTN 


SETS  UP  AXIS  FOR  PRINT  CHARACTER 
PLOT. 


EXECUT 

{see   separate    I Itm  (  harl  ) 


CONTROLS    CALCINATION    OF    FACTOR    OF 
SAfETY    AND    INTERMEDIATE    STEPS. 
IF     SINt.lt     THIAI      SURFACE     IS     SPECI- 
FIED,    1MPIEMINT'.     I'lOl     OF     SURFACE 
AND    PROEU  EM    CI  OMI  TRY. 


LIMITS 

calls  READER  I   QUIT 


READS,  CHECKS,  STORES  AND  PRINTS 
DATA  FOR  LIMITATION  BOUNDARIES 
FOR  CRITICAL  FAILURE  SURFACE 
SEARCHING  ROUTINES. 


RANDOM 

ENTRY 

BLOCK 

(see  separate  flow  chart) 


READS,  CHECKS,  STORES  AND  PRINTS 
DATA  FOR  SEARCHING  PARAMETERS. 
DIRECTS  THE  SEARCH  AND  ACCUMULA- 
TES DATA  FOR  THE  TEN  MOST  CRITI- 
CAL FAILURE  SURFACES,  AND  PRINTS 
THEM  OUT. 


PLT4 

CALLS  POSTN 


BUILDS  AND  PRINTS  PROBLEM  GEOME- 
TRY WITH  PRINT  CHARACTERS. 


QUIT 


STOPS  EXECUTION  OF  STABL. 
TERMINATES  PLOTTING  DEVICE. 


SUBROUTINE     PLOTIN 


PLOTS  PROBLEM  GEOMETRY  WITH  A  PLOTTING  DEVICE. 


PLOTIN 

ENTRY 

PLOTN2 
PLOTN3 


PLOTS  AXIS,  PROFILE  BOUNDARIES,  PIEZOMETRIC  SURFACES,  IF 

ANY;  LIMITATION  BOUNDARIES,  IF  ANY;  SURCHARGE  LOADS,  IF 

APPLICABLE. 

PLOTS  ALSO  SEARCH  BOXIS  FOR  A  SLIDING  BLOCK  SEARCH,  IF 

APPLICABLE. 

PLOTS  INDIVIDUAL  TRIAL  FAILURE  SURFACES. 

PLOTS  THE  TEN  MOST  CRITICAL  FAILURE  SURFACES. 


FIGURE  D.3     FLOW  CHART  OF  STABL 


jWi-'b 


Subroutine    RANDOM,   Entry  BLOCK 

READS.  CHECKS,  STORES  AND  PRIMS  DATA  FOR  SEARCHING  PARAMETERS. 
DIRECTS  THE  SEARCH  AND  ACCUMIILA1ES  DATA  TOR  THE  TEN  MOST  CRITICAL 
FAILURE  SURFACES,  AND  PRINTS  TIIFM  OUT. 


Command  Code 


IS 


CALL 

CA1L 

CALL 
CALL 


BLOCK 


3L0CK2 


CALL 


CALL 


CALL 

CALL 
CALL 

CALL 
CALL 


READER 

CALLS    DIM  I 


TO    RtAD    DATA     IN    FREE     FORMAT. 
IF     DATA    ARI     FAULTY. 


INTSC2 

(sre    srp.irale    I  luw    rhdrt  ) 


TO    CHECK     If     A    IIOX     IN    THE     SLIDING 
BLOCK     MARCH     IS    DETINED    TOTALLY 
BELOW    THE     GROUND    SURFACE. 


SCALER 


DETERMINES  THE  SCALE  TO  FIT 
PROBLEM  GEOMETRY  TO  SIZE  OF  PLOT. 


RANSUF 

calls  INTSCT 


calls  QUIT 


GENFRATES  TRIAI   FAILURE  SURFACES 
OF  CIRCULAR  OR  IRREGULAR  SHAPE 
BY  A  RANDOM  TECHNIQUE. 

-  TO  CALCULATE  INTERSECTION  POINT 
BETWEEN  FA  1 1  UPE  SURFACE  AND 
SOIL  BOUNDARIES  AND  LIMITATION 
BOUNDARIES. 

-  TO  TERMINATE  PROGRAM  IF  SURFACE 
POINT  STORAGE  LIMIT  IS  EXCEEDED. 


BLKSUF 

ca-llI  m 

CALLS    QUI T 


GENERATES     TRIAI     FAILURE     SURFACES 
OF    SLIDING    BLOCK    SHAPE    BY    A 
RANDOM    TECHNIQUE . 
•   see  RANSLir   above 

■    see  RANSUF   above. 


BLOCK2 

calls  INTSCT 
calls  INTSC2 
calls  QUIT 


GENERATES  TRIAL  FAILURE  SURFACES 
OF  SLIDING  BLOCK  SHAPE  BY  A 
RANDOM  TECHNIQUE.  ACTIVE  AND 
PASSIVF  PORTIONS  ARE  GENERATED 
ACCORDING  TO  THE  RANKINE  THEORY. 
•  TO  CALCULATE  INTERSECTION  POINT 

BETWEEN  FAILURE  SURFACE  AND 

SOIL  BOUNDARIES. 

-  LIKE  BLKSUF.  ALSO  USED  IN  GENE- 
RATION OF  ACTIVE  AND  PASSIVE 
PORTION  OF  FAILURE  SURFACE. 

-  see  HANLlii  above 


EXECUT 

Isee   separate   Mow  (hart) 


CONTROLS    CALCULATION    OF    FACTOR    OF 
SAFETY    AND    INTERMEDIATE    STEPS. 


SORT 


SORTS  THE  TEN  MOST  CRITICAL 
FAILURE  SURFACES. 


PLOTIN 

see    separate    flow  chart) 


PLOTS    PROBLEM    GEOMETRY    WITH    A 
PLOTTING    DEVICE. 


PLTN 

!see  separate  flow  chart) 


BUILDS  AND  PRINTS  THE  PRINT 
CHARACTER  ARRAY  CONTAINING  THE 
'ROBLEM  GEOMETRY  DISPLAYED  WITH 
''R  INT  CHARACTERS. 


QUIT 


TO  TERMINATE  PROGRAM  IF  DATA 
ARE  FAULTY  OR  IF  ERRORS  RC I  I 
OR  BKIO  OCCUR. 


SUBROUTINE     PLTN 

BUILDS  AND  PRINTS  THE  PRINT  CHARACTER  ARRAY  CONTAINING  THE  PROBLEM 
GEOMETRY  DISPLAYED  WITH  PRINT  CHARACTERS. 


PLTN 

ENTRY 

PLT2 
PLT3 

PLT4 

CALLS  POSTN 


SETS  UP  AXIS. 

BUILDS  DISPLAY  OF  INDIVIDUAL  TRIAL  FAILURE  SURFACES. 

BUILDS  DISPLAY  OF  THE  TEN  MOST  CRITICAL  FAILURE  SURFACES. 

BUILDS  DISPLAY  OF  THE  PROBLEM  GEOMETRY. 
PRINTS. 

DETERMINES  THE  POSITION  OF  A  SCALED  COORDINATE  POINT 
WITHIN  THE  CHARACTER  PLOT  ARRAY. 


FIGURE  D.3    (cont.) 


SUBROUTINE     EXECUT 


392c 


CONTROLS  CALCULATION  0T  fACTOR  OF  SATETY  AND  INTERMEDIATE  STEPS. 


CALL 


CAIL 


CALL 


CALL 


CALL 


SLICES 

calls  INTSCT  8  1NTSC2 


DIVIDES  SLIDING  MASS  INTO  SLICES. 


FACTR 


PLT4 

CALLS    POSIN 


PLOTIN 


WEIGHT 

diterminfs  mi    ioiai   wfight  of 
each  sucr,  snu    typf   at   the   base 

OF    fACH    SI  Iff.    ANIi    HI  MIL  TAN!    WATER 

calls  INTSC2 

FORCES    AT     lilt     TOP    AND    DASl     OF     EACH 

SLICE. 

CALLS  Eb1? 

IN    CASE     OF     PROGRAM    ABORTION,     TO 

PRINT     PROBLEM    GEOMETRY    AND 

TERMINATE     PROGRAM. 

calls  S01LHT 

CALCULATES     THE     TOTAL     HEIGHT    OF    A 

SLICE    SUBSECTION. 

CALCUIATES  THC  FACTOR  OF  SAFETY 
PY  NEWTON-RALPHSON  ITERATION. 
IF  NO  CONVERGENCE  BY  TEN  ITERA- 
TIONS, LACK  OF  CONVERGENCE  IS 
INDICATED. 

CHECKS  FOR  NEGATIVE  NORMAL  FORCE 
AT  BASE  OF  A  SLICE . 
IF  SPECIFIED  SURFACE,  PRINTS  THE 
FACTOR  OF  SAFETY. 


BUILDS  PROBLEM  GEOMETRY  INCLUDING 

SPECIF IED  SURFACE. 

PRINTS  WITH  CHARACTER  GRAPH. 


PLOTS  PROBLEM  GEOMETRY  AND  SPECI- 
FIED FAILURE  SURFACE  WITH  A 
PLOTTING  DEVICE. 


SUBROUTINE     INTSCT 


INTSCT 

ENTRY 

INTSC2 


CHECK',  FOR  INTERSECTION  OF  TWO  LINT  SIGMENTS  AND  CAICULATES 
THE  COORDINATES  OF  INTERSECIION. 

CHECKS  FOR  INTERSECTION  OF  A  LINE  SEGMENT  WITH  A  VERTICAL 

LINE  AND  CALCULATES  THE  COORDINATES.  


FIGURE  D.3  (cont. ) 
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APPENDIX   E 
LISTING  OE  REVISED  STABL  PROGRAM 


A  listing  of  the  revised  STABL  program  (STABL2)  is  enclosed  on  the 
following  pages. 

Marks  in  the  margin  of  the  listing  indicates  that  the  corresponding 
line  (card)  has  been  changed  compared  to  the  original  STABL  program. 
This  was  done  in  order  that  users,  who  have  received  copies  of  the  STABL 
program  at  various  times  from  the  original  STABL  program  was  released  in 
1975,  up  to  the  present  date  (January,  1978),  should  be  able  to  update 
their  version  of  STABL,  if  they  wish. 

Some  lines  have  been  changed  more  than  one  time;  however,  only  the 
final  change  appears  in  the  listing  of  the  revised  program. 

The  symbols  are  as  follows . 


(1)  " 

(2)  T 


(3) 


I 
1 


Indicates  change  of  that  particular  line. 

Indicates  that  all  lines  within  the  vertical  line  have 
been  changed  (including  first  and  last  line,  where  symbol 
(l)  is  used). 

Indicates  that  all  lines  between  upper  and  lower  arrow 
have  been  changed.  The  change  may  continue  for  several 
pages . 
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INDEX  OF  STAHL2  PROGRAM 

Page 

Main  Program  STABL2 394 

Subroutine  READER  399 

Subroutine  QUIT 403 

Subroutine  PROFIL  404 

Subroutine  ANISO 414 

Subroutine  WATER 418 

Subroutine  LOADS 422 

Subroutine  EQUAKE  426 

Subroutine  LIMITS  427 

Subroutine  INTSCT  4  30 

Subroutine  SURFAC  4  32 

Subroutine  RANDOM  435 

Subroutine  RANSUF  451 

Subroutine  BLKSUF  463 

Subroutine  BL0CK2  468 

Subroutine  SORT 473 

Subroutine  EXECUT  474 

Subroutine  SLICES  475 

Subroutine  WEIGHT  480 

Subroutine  SOILWT  486 

Subroutine  FACTR 488 

Subroutine  SCALER  493 

Subroutine  PLOTIN  495 

Subroutine  PLTN 501 

Subroutine  POSTN 506 
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PROGRAM  STABL2C INPUT, OUTPUT, TAPE5=INPUT.TAPEG=0UTPUT, PLOT) 


C   


AUTHOR  - 

RONALD  A.  SIEGEL,  GRADUATE  RESEARCH  ASSISTANT,   1975. 
REUISED  BY  - 

EUA  BOUTRUP.  GRADUATE  RESEARCH  ASSISTANT,   JANUARY  1978. 

SPONSOR  - 

JOINT  HIGHWAY  RESEARCH  PROJECT 

ENGINEERING  EXPERIMENT  STATION 

PURDUE  UNIUERSITY 

IN  COOPERATION  UITH  THE 

INDIANA  STATE  HIGHWAY  COMMISSION 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c   

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


PROGRAM  STABLE 


FUNCTIONS  - 

MAIN  PROGRAM  OF  STABL. 

INITIATES  PLOTTING  DEUICE. 

READS  AND  DIRECTS  EXECUTION  OF  COMMANDS. 

TERMINATES  PLOTTING  DEUICE. 


DEFINITIONS 
AN  I  SO 


BLOCK 


8 
10 
12 

14 
IS 
18 
20 


STBL 

-STBL 

-STBL 
STEL 

-STBL 

-STBL 
STBL 
STBL 
STBL 
STBL 
STBL  22 
0CT7GEB0 
0CT7BEB0 
JAN78EB0 
0CT7EEB0 
STBL  24 
STBL  2E 
STEL  28 
STBL  30 
STBL  32 
STBL  34 
STBL  3G 
STBL 

-STBL 


38 
40 
-STEL   42 

STBL  44 

STBL   4G 

STBL 

STBL 

STBL   52 

STBL   54 

STBL 

STBL 

STBL 

STBL 


STBL 

STBL 

STBL 

SUBROUTINE  THAT  READS,  STORES,  AND  PRINTS  OUT        STBL 

DIRECTIONAL  STRENGTH  PARAMETERS  OF  ANISOTROPIC  SOIL  STBL 

TYPES.  STBL 

STBL 
ENTRY  OF  SUBROUTINE  RANDOM  UHICH  READS  SEARCH  STBL 
PARAMETERS  AND  DIRECTS  RANDOM  SEARCH  FOR  THE  CRITICALSTBL 
SLIDING  BLOCK  SURFACE.  STBL 

STBL 
STBL 
STBL 
STBL 
STBL 
STBL 
SUBROUTINE  THAT  DIRECTS  CALCULATION  OF  THE  FACTOR  OF  STBL 
SAFETY  FOR  A  SPECIFIED  FAILURE  SURFACE. 


EQUAKE 


ERROR 
EXECUT 


IBLK 


IBLK2 


ICIRC 


SUBROUTINE  THAT  READS 
EARTHQUAKE  DATA. 


IN,  STORES,  AND  PRINTS  OUT 


UARIABLE  REPRESENTING  CURRENT  ERROR  CODE. 


INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

CONTROL  CODE  WHICH  ACTIUATES  GENERATION  OF 
BLOCK  SURFACE. 


48 
50 


55 
58 
GO 
G2 

STBL  G4 
-STBL  GG 
G8 
70 
72 
74 
7G 
78 
BO 
82 
84 
3G 
68 
90 
92 
94 
36 
98 
100 
102 
104 


STBL 
STBL 

STBL  10G 

STBL  108 

SLIDING  JUL76EB0 

JUL7GEBD 

JUL7GEB0 

CONTROL  CODE  WHICH  ACTIUATES  GENERATION  OF  A  SLIDING  JUL7GEB0 

BLOCK  SURFACE  WITH  RANKINE  ACTIUE  AND  PASSIUE  UEDGES. JUL7GEB0 

JUL7EEB0 
CONTROL  CODE  WHICH  DIRECTS  GENERATION  OF  CIRCULAR  OR  STBL  110 
IRREGULAR  SURFACES.  STBL  112 

STBL  114 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IEXIT 
I  PLOT 
IPROF 
I  READ 
ISEARC 
ISOIL 
I  SURF 
KEYW 
LIMITS 

LOADS 

MB 

MKEYU 

N 

PLOT 

PLOTS 
PLTN 

PLT4 

PROFIL 
QUIT 

RANDOM 

RD 
SCALER 


CONTROL  CODE  WHICH  TERMINATES  EXECUTION.  IF  DATA  IS 
INCONSISTANT  WITH  THE  REQUIREMENTS  OF  THE  PROGRAM. 

CONTROL  CODE  WHICH  CONTROLS  TRANSLATION  OF  AXES  FDR 
PLOTTED  OUTPUT. 


CONTROL  CODE 
REQUIREMENT. 


USED  FOR  CHECKING  PROFIL  SEQUENCE 


CONTROL  CODE  WHICH  PROMPTS  READING  A  NEW  LINE  OF 
DATA. 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PPOGPAM 
AFFECTED  BY  THE  SEARCHING  SUBROUTINE  RANDOM. 


CONTROL  CODE 
SOIL  DATA. 


WHICH  INDICATES  DEFINITION  OF  ISOTRODIC 


CONTROL  CODE  WHICH  INDICATES 
TRIAL  FAILURE  SURFACE. 


DEFINITION  OF  SPECIFIED 


ARRAY  OF  KEYWORDS  USED  TO  COMPARE  WITH  COMMANDS 
DIRECTING  CONTROL  OF  THE  PROGRAM  BY  USER. 


SUBROUTINE  THAT  READS  IN,  STORES. 
LIMITS  WHICH  BOUND  THE  AREA  TO  BE 
SUBROUTINE  RANDOM. 


AND  PRINTS  OUT 
SEARCHED  WITH 


THE 


SUBROUTINE  THAT  READS  IN, 
OUT  BOUNDARY  LOADING  DATA 


CHECKS.  STORES.  AND  PRINTS 


he 

118 

120 

122 

124 
1SG 

128 
130 
132 
134 
136 
138 
140 
142 
144 
14S 
148 
150 
152 
154 
156 
158 
160 
162 
164 
166 
168 
170 
172 
174 
176 


CONTROL  CODE  WHICH  INDICATES  MODIFIED  BISHOP 
FACTOR  OF  SAFETY  CALCULATION  (IF  MB=1). 

UARIABLE  REPRESENTING  THE  COMMAND  LAST  READ  IN. 

CONTROL  CODE  FOR  FACTOR  OF  SAFETY  CALCULATION. 

EXTERNAL  SUBROUTINE  USED  TO  MOUE  A  PLOTTING  PEN  TO 
NEW  POINT. 

EXTERNAL  SUBROUTINE  USED  TO  INITIATE  PLOTING. 

SUBROUTINE  WHICH  SETS  UP  THE  AXES  AND  AXIS  LADIES 
THE  PRINT  CHARACTER  PLOT. 

ENTRY  OF  SUBROUTINE  PLTN  WHICH  STORES  THE  PROFILE 
GEOMETRY  AND.  IF  APPLICABLE,  THE  WATER  SURFACE. 
SURFACE  GENERATION  BOUNDARIES.  SURCHARGE  BOUNDARY 
LOADS  AND  A  SPECIFIED  TRIAL  FAILURE  SURFACE.  PLT4 
THEN  PRINTS  THE  ENTIRE  ARRAY  AND  ITS  AXTS  LABLE5. 


SUBROUTINE  THAT  READS  IN.  CHECKS.  STORES, 
OUT  PROFILE  GEOMETRY  DATA. 


AND  PRINTS 


SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE, 
TERMINATES  PLOTTING,  AND  TERMINATES  EXECUTION  OF  THE 
PROGRAM. 

SUBROUTINE  THAT  DIRECTS  RANDOM  SEARCH  FOR  ThE 
CRITICAL.  IRREGULAR  OR  CIRCULAR  SURFACE. 

FACTOR  FOR  CONUERSION  OF  DEGREES  TO  RADIANS. 

SUBROUTINE  WHICH  DETERMINES  THE  SCALE  FOR  PLOTTING. 


STBL 
STBL 
S1BL 
STBL 
STBL 
STBL 
STEL 
STBL 
STEL 
STEL 
5TBL 
STBL 
STEL 
STBL 
STBL 
STBL 
STEL 
STBL 
STBL 
STBL 
STBL 
STEL 
STEL 
STBL 
STBL 
STEL 
STBL 
STEL 
STEL 
STBL 
STBL 

MAR77EB0 
MAR77EB0 
MAR77EB0 
STBL  178 
STEL  180 
MAR77EB0 
MAR77EB0 
STBL  182 
STBL 
STEL 
STBL 
STBL 
F0RN0U76EB0 
N0U76EB0 
N0'J76EB0 
N0U76EB0 
N0U7EEB0 
N0U76EB0 
N0U76EB0 
N0U76EB0 
N0U76EB0 
STBL  192 
STEL 
STEL 
STBL 
STBL 
STBL 
STBL 
STBL 
STBL 
STBL 
STBL 
STBL 

N0U76EB0 
N0U76EB0 


184 
186 
188 
190 


194 
196 
198 
200 
202 
204 
206 
208 
210 
212 
214 
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c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 

C 

c 

c 


c 
c 
c 
c 
c 


SOIL      EMTRY  OF  SUBROUTINE  PPOFIL  THAT  READS  IIS,  STORES. 
AND  PRINTS  OUT  ISOTROPIC  SOIL  PARAMETERS. 

SURFAC    SUBROUTINE  THAT  READS  IN,  CHECKS,  STORES.  AND  PRINTS 
OUT  DATA  DEFINING  AN  INDIUIDUAL  TRIAL  FAILURE 
SURFACE. 

TOL       TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  ROUNDING. 

WATER     SUBROUTINE  THAT  READS  IN  AND  PRINTS  OUT  THE  UATER 
SURFACE  DATA. 


COMMON  /BLK01/IANGL, IBLK. IEXIT, ICIRC. ILIMIT. IPLOT, IREAD. ISEAPC. 
1        IBLK2, ISOIL, ISTR, ISURC, ISURF, IUAT.RD. TOL 

COMMON  /BLK15/  M.MB 

DIMENSION  KEYU(15).ERR0R(5) 

DATA  KEYU/EHPR0FIL,5HL0ADS.5HUATER.GHSURFAC.GHEXECUT,GHEQUAKE. 
1    4HS0IL.GHRAND0M.&HCIRCLE,6HCIRCL2.5HBL0CK,6HBL0CK2.GHLINITS. 

1    5HANIS0.6HSURBIS/ 
DATA  ERROR/4HS901 , 4HS002. 4HSQ03. 4HSQ04, 4HSQ05/ 
TOL=.0001 
RD=3. 1415927/180. 


INITIATE  CONTROL  CODES 


IPLOT=0 

ICIRC=0 

ISEARC=0 

IEXIT=0 

IPR0F=0 

IBLK=0 

IBLK2=0 

M3=0 

N=0 


INITIALIZE  PLOTTING  DEUICE 


CALL  PLOTS 

CALL  PLOT(0., 1.4,-2) 

CALL  PLOTC2.5.0..-3) 


READ  COMMAND  CARD 


11  IREAD=0 

READ(5,100)MKEYU 
100  F0RMATCA6) 


C 
C 
C 
C 

C 


CHECK  IF  READING  BEYOND  END  OF  FILE 


IF(EOF.5)19.50 


STBL 

216 

STBL 

218 

STEL 

220 

STBL 

222 

STEL 

224 

STBL 

22S 

STEL 

228 

STBL 

230 

STEL 

232 

STBL 

234 

STEL 

23G 

STEL 

238 

STBL 

240 

STEL 

242 

STBL 

244 

STBL 

24G 

STEL 

248 

STBL 

249 

STBL 

250 

STEL 

252 

STBL 

254 

STBL 

255 

STEL 

25G 

STEL 

258 

STEL 

2G0 

STBL 

2G2 

STEL 

2G4 

STEL 

2GB 

STBL 

2G8 

STBL 

270 

STEL 

272 

STEL 

274 

STBL 

27G 

STBL 

278 

STEL 

280 

STBL 

281 

STEL 

282 

STBL 

283 

STBL 

284 

STEL 

285 

STBL 

28G 

STBL 

287 

STBL 

288 

5TBL 

290 

STBL 

292 

STBL 

294 

STBL 

2SE 

STEL 

298 

STBL 

300 

STEL 

302 

STEL 

304 

STBL 

30G 

STEL 

308 

STBL 

310 

STBL 

312 

STEL 

314 

STPL 

31G 

STBL 

318 

STEL 

320 

STEL 

322 

STBL 

324 

STBL 

32G 
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c   

C   CHECK  IF  PRDFIL  IS  INITIAL  COMMAND 
c   

C 

50  IF(IPROF.EQ.l)GO  TO  23 

IF(MKEYW.EQ.KEYU(l»GO  TO  24 

URITE(6.106)ERRORU) 

10G  FORMAT (/",  10X.  14H**»«   ERROR  -  .A4.6H  ••••,•) 

IEXIT=1 

24  IPR0F=1 

C 

c   

C   MATCH  COMMAND  IITTH  A  DIRECTIUE  AND  EXECUTE  IT 
c   

C 

23  DO  12  1=1.15 

IF(MKEYU.EQ.KEYU(I))GO  TO  ( 1. 2. 3.  4.  5.  G.  7. 3. 10. 8. 14, 18, 15. 1G.  13) .  I 

12  CONTINUE 

C 

c   

C   TERMINATE  EXECUTION  IF  ILLEGAL  COMMAND  ENCOUNTERED 

C 

URITECG.IODMKEYN 

101  F0RMATC1H1,/ 
1          10X. *•«#»»»##«##*»•••»«»*###«**»»•»••«« 
1          ioX. ***••«»  *,AG,*  -  ILLEGAL  COMMAND 
1  10X, *«•«*«»••**«««» ».#«•««»•»«»«•. 

URITE(6,102)CKEYU(I).I=1.15) 

102  FORMAT (//.l OX. *LEGAL  COMMANDS  -  *, AG,/, (27X. AG) ) 
CALL  QUIT 

1  CALL  PROFIL 
GO  TO  11 

2  CALL  LOADS 
GO  TO  11 

3  CALL  WATER 
GO  TO  11 

13  MB=1 
N=0 

4  CALL  SURFAC 
IF(N.EQ.l)  MB=0 
GO  TO  11 

C 
C 
C 
C 

c 


CHECK  EXECUT  SEQUENCING 


5  IFCISOIL.EQ.DGO  TO  20 

URITEC6.106)ERROR(2) 

CALL  QUIT 

20  IFCISURF.EQ.DGO  TO  21 

URITE(S.10G)ERROR(3) 

CALL  QUIT 

21  CALL  SCALER 

CALL  PLTN 

IF(IEXIT.EQ.0)GO  TO  1? 

c 
c 

c 
c 
c 

TERMINATE  EXECUTION  IF  DATA  FAULTY 

CALL  PLT4 

CALL  QUIT 

17  CALL  EXECUT 

N=l 

GO  TO  11 

G  CALL  EQUAKE 

GO  TO  11 

STBL  328 

STBL  330 

STBL  332 

STEL  334 

STBL  33B 

STEL  338 

STBL  340 

STBL  342 

STEL  344 

STEL  34E 

STBL  348 

STBL  350 

STBL  352 

STBL  354 

STBL  35E 

STEL  358 

i,  16,13),  I  ' 

STEL  3B2 

STBL  3B4 

STEL  3BB 

STEL  3B8 

STBL  370 

STBL  372 

STBL  374 

STEL  376 

x/ 

STBL  378 

*/ 

STBL  380 

*/•) 

STBL  382 

STBL  384 

STBL  38S 

STBL  388 

STEL  330 

STBL  392 

STEL  394 

STEL  396 

STBL  398 

STBL  400 

STBL  401 

STBL  402 

STBL  403 

STBL  404 

STEL  405 

STEL  406 

STBL  408 

STBL  410 

STEL  412 

STEL  414 

STBL  416 

STBL  418 

STBL  420 

STBL  422 

STBL  424 

STBL  42G 

STBL  428 

STBL  430 

STBL  432 

STEL  434 

STBL  436 

STBL  438 

STBL  440 

STBL  442 

STBL  444 

STBL  446 

STBL  448 

STBL  449 

STBL  450 

STBL  452 

STEL  454 
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7  CALL   SOIL 
GO  TO    11 

9   IFCISOIL.EQ.DGO  TO  25 
URITE(G.106)ERR0RC5) 
25  CALL  RANDOM 
GO  TO   11 

8  MB=1 
N=0 

10   ICIRC=1 

IFCN.EQ.D    MB=0 
IFCISOIL.EQ.DGO  TO  26 
URITEC6,10G)ERRORC5) 

2G  CALL  RANDOM 
GO  TO  11 

14  IFCISOIL.EQ.DGO   TO  27 
URITECG.10G)ERRORC5) 

IB    IBLK2=1 

IFCISOIL.EQ.DGO  TO  27 
URITECG»10G)ERROR(5) 

27  CALL  BLOCK 
GO  TO  11 

15  CALL  LIMITS 

GO  TO  11 

C 

c   

C   CHECK  ANISO  SEQUENCE 
c   _ 

C 

1G   IFCISOIL.EQ.DGO  TO  22 

URITEC6.106)ERROR(4) 

IEXIT=1 

22  CALL  ANISO 

GO  TO  11 

C 

c   

C   TERMINATE  PLOTTING  DEUICE 
c   

c 

19  CALL  PLOT(0.,0.,999) 
STOP 
END 


STBL 

45G 

5TBL 

458 

STBL 

4G0 

STBL 

4G2 

STBL 

4G4 

STBL 

4BS 

STBL 

4B7 

STBL 

458 

STEL 

453 

STBL 

470 

STBL 

471 

STBL 

472 

STEL 

474 

STBL 

475 

STBL 

477 

STBL 

478 

STBL 

479 

STBL 

480 

STBL 

481 

STBL 

482 

STEL 

484 

STBL 

486 

STBL 

48S 

STBL 

490 

STBL 

492 

STEL 

494 

STBL 

495 

STEL 

498 

STBL 

500 

STEL 

502 

STBL 

504 

STBL 

505 

STBL 

508 

STBL 

510 

STBL 

512 

STBL 

514 

STBL 

515 

STEL 

518 

STEL 

520 

STBL 

522 

STBL 

524 

399 


SUBROUTINE  READERtSUM, ISUM, IR)  READ   2 

c   READ   4 

£  pEftD     g 

C  SUBROUTINE  READER                        READ   B 

c   REftD   j  0 

c   REPD   j  2 

C  READ   14 

C   FUNCTIONS  -  PEAD   IB 

C  READ   J  8 

C  ENABLES  PROGRAM  TO  READ  NUMERICAL  DATA,  CONSISTING  OF  POSITIUE  READ   20 

C  INTEGERS  AND  EOTH  NEGATIUE  AND  POSITIUE  REAL  NUMBERS           READ  22 

C  FREE-FORM.                                                 READ   24 

C  READ   26 

C   REflD  23 

C  READ   30 

C   DEFINITIONS  -  READ  32 

C  READ   34 

C  A         ARRAY  CONTAINING  THE  REAL  ONE  DIGIT  NUMBERS.         READ   36 

C  READ   38 

C  ERROR     UARIABLE  REPRESENTING  CURRENT  ERROR  CODE.           PEAD  40 

C  READ   42 

C  I         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               READ  44 

C  READ   46 

C  IA        ARRAY  CONTAINING  THE  INTEGER  ONE  DIGIT  NUMEEPS.      READ   48 

C  PEAD  50 

C  IEXIT     CONTROL  CODE  UIHICH  TERMINATES  EXECUTION,  IF  DATA  IS  READ  52 

C  INCONSISTANT  WITH  THE  REQUIREMENTS  OF  THE  PROGRAM.    READ   54 

C  READ  56 

C  II        INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               READ  53 

C  READ   60 

C  IJ        INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               PEAD   62 

C  READ  64 

C  IR        CONTROL  CODE  WHICH  DETERMINES  WHETHER  A  NUMBER  PEAD  READ  66 

C  IS  TO  BE  HANDLED  AS  A  REAL  NUMBER  OR  AS  AN  INTEGER.   PEAD   68 

C  READ   70 

C  IREAD     CONTROL  CODE  WHICH  PROMPTS  READING  A  NEW  LINE  OF     READ   72 

C  DATA.                                             READ   74 

C  READ   76 

C  ISUM      INTEGER  NUMBER  THAT  IS  ASSEMBLED.                  READ  78 

C  READ   80 

C  J         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               READ   82 

C  READ  84 

C  K         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               READ  86 

C  READ  88 

C  KD        DECIMAL  LOCATION.                                  READ   90 

C  READ  92 

C  KD1       KD  -  1                                         READ  94 

C  READ   96 

C  KF        LOCATION  OF  LAST  DIGIT  IN  NUMBER.                  READ  98 

c  READ  100 

C  KI        LOCATION  OF  FIRST  DIGIT  IN  NUMBER.                 READ  102 

C  KEAD  104 

C  L         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               READ  106 

C  READ  108 

C  M         ARRAY  CONTAINING  THE  INDIUIDUAL  CHARACTERS  READ  FROM  PEAD  110 

C  A  LINE  OF  DATA.                                    READ  112 

c  READ  114 

C  N         ARRAY  CONTAINING  ALPHA-NUMERIC  CHARACTERS  USED  FOR   READ  116 

C  COMPARISONS.                                      READ  118 

C  READ  120 

C  QUIT      SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE.      FEAD  122 

C  TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE  READ  124 

C  PROGRAM.                                          PEAD  126 

c  READ  128 

C  SSIGN     UARIABLE  USED  TO  HANDLE  THE  SIGN  OF  THE  NUMBER  BEING  PEAD  130 

C  ASSEMBLED.                                        READ  132 

c  READ  134 


1»00 


c 
c 
c 
c 
c 


SUM 


REAL  NUMEER  THAT  IS  A5SEMBLED. 


COMMON  /'BLK01/IANGL. IBLK, IEXIT. ICIRL. ILIMIT. IPLOT.  IREAD.  ISEARC. 
1        IBLK2.I50IL.ISTR. ISURC. ISURF . IUAT, RD. TOL 
COMMON  /ELKOe/MSLICE.XOOO) 

DIMENSION  M(80).N(14),A(10).IA(10).ERROR(7) 
EQUIUALENCE  (M(l).X(l)) 

DATA  IV1H1.1H2. 1H3. IH4i 1H5. 1H6. 1H7. 1H8. 1H9. 1H0. 1H  . 1H. . 1HO. 1H-/ 
DATA  A/1..2..3..4..5..G..7..8..9..0./ 
DATA  IA/1,2,3.4,5.G,7.8.9.0/ 

DATA  ERROR/4HFR01 . 4HFR02. 4HFR03. 4HFR04. 4HFR05. 4HFR0G. 4HFR07/ 
SSIGN=1. 

IF(IREAD.EQ.l.AND.IR.EQ.l)GO  TO  3 
IFUREAD.EQ.DGO  TO  11 


C 
C 
C 
C 
C 


READ  ENTIRE  LINE  OF  DATA  -  ONE  COLUMN  AT  A  TIME 


5  READ(5.101HM(I).  1  =  1.80) 
101  FORMATC80A1) 


CHECK  IF  READING  BEYOND  END  OF  FILE 


IFCEOF. 5)23.24 

23  URITE(G.105)ERRORC1) 

105  FORMATC/.10X. 14H««»*  ERROR  -  .A4.GH  •«*«,/) 
CALL  QUIT 

24  IF(M(1).NF.NU1))G0  TO  22 
URITEC6.105)ERROR(2) 
WRITE  ( 6. 1 07  HMC 1 1).  1 1  =  1.  80) 

107  F0RMAT(1X.*»*»»  ERROR  IN  FOLLOUING  LINE  OF  DATA  *•*•*,//, 
1    1X,1H$./»1X.80A1»//) 


C 

c 
c 
c 
c 


TERMINATE  EXECUTION  IF  DATA  FAULTY 


CALL  QUIT 
22  IREAD=1 
K=l 
1=0 

IFCIR.EQ.DGO  TO  4 
GO  TO    12 


C 

c 

C 

c 
c 


c 
c 
c 
c 
c 


ASSEMBLE  INTEGER  NUMBER 


11  IF(M(I).EQ.N(ll).AND.M(I+l).EQ.N(ll))GO  TO  5 

12  1=1+1 


IF  LETTER  (0)  READ.  SUBSTITUTE  NUMBER  (0) 


IF(M(I).EQ.N(13))M(I)=N(10) 


READ  13G 
PEAD  138 
-READ  140 
-REhD  142 
READ  144 
READ  14G 
READ  148 
READ  150 
READ  152 
READ  154 
READ  15G 
READ  158 
READ  1G0 
READ  1G2 
READ  1G4 
READ  1GG 
READ  1G8 
READ  170 
READ  172 
READ  174 
READ  17G 
READ  178 
READ  180 
READ  102 
READ  184 
PEAD  18G 
READ  188 
READ  190 
READ  192 
READ  194 
PEAD  19G 
READ  198 
READ  200 
READ  202 
READ  204 
READ  20G 
READ  208 
READ  210 
READ  212 
READ  214 
READ  21G 
READ  218 
READ  220 
READ  222 
PEAD  224 
READ  22G 
READ  228 
PEAD  230 
READ  232 
READ  234 
READ  23G 
PEAD  238 
PEAD  240 
PEAD  242 
PEAD  244 
READ  246 
PEAD  248 
FEAD  250 
PEAD  252 
READ  254 
READ  25G 
READ  258 
READ  2G0 


1*01 


c 
c 

c 
c 
c 


c 
c 
c 
c 
c 


c 
c 

c 
c 
c 


c 

c 
c 
c 
c 


CHECK  FOR  DECIMAL  POINT 


IF(Mm.NE.N(12))G0  TO  1G 

URITE(G,105)ERROR(3) 

IEXIT=2 


CHECK  SIGN  OF  INTEGER 


IB  IFCM(I).NE.N(14))G0  TO  20 
URITE(S.105)ERROR(4) 
IEXIT=2 


TERMINATE  EXECUTION  IF  DATA  FAULTY 


20  IF(M(I).NE.N(in)GD  TO  12 
IFCIEXIT.LE.DGO  TO  2G 
URITECE. 107;(M(II).II=1.80) 
CALL  QUIT 

2E  KI=K 
K=I  +  1 
KF=I-1 
ISUM=0 


DETERMINE  DIGITS  OF  INTEGER  NUMBER 


DO  13  II=KI,KF 

DO  14  J=1.10 

L=J 

IF(M(II).EQ.M(J))GO  TO  15 

14  CONTINUE 


TERMINATE  EXECUTION  IF  DATA  FAULTY 


URITECE. 105)ERROR(5) 

URITE(G,107)(MCIJ),IJ=1.80) 

CALL  OUIT 
15  ISUM=ISUM+IA(L)«10««(KF-II) 
13  CONTINUE 

RETURN 


ASSEMBLE  REAL  NUMBER 


3  IFCM(I).EQ.N(11).AND.M(I+1).EQ.N(11))G0  TO  5 

4  1=1+1 


IF  LETTER  (0)  READ,  SUBSTITUTE  NUMBER  (0) 


IF(M(I).EQ.N(13))M(I)=N(10) 
IF(M(I).EQ.M(12))KD=I 
IF(M(I).NE.N(11))G0  TO  4 
KI=K 
K=I  +  1 


READ  262 
READ  2G4 
READ  2E6 
READ  2E8 
READ  270 
PEAD  272 
READ  274 
READ  27G 
READ  27B 
READ  280 
READ  232 
PEAD  284 
READ  28G 
READ  288 
READ  290 
READ  292 
PEAD  294 
READ  29G 
READ  298 
READ  300 
READ  302 
READ  304 
READ  30G 
READ  308 
READ  310 
READ  312 
READ  314 
READ  31G 
READ  318 
READ  320 
READ  322 
READ  324 
READ  326 
READ  328 
READ  330 
PEAD  332 
READ  334 
READ  33G 
READ  338 
READ  340 
READ  342 
PEAD  344 
READ  34G 
PEAD  34S 
READ  350 
READ  352 
READ  354 
READ  356 
PEAD  358 
READ  3G0 
READ  3G2 
READ  3G4 
READ  3BG 
READ  3E8 
READ  370 
READ  372 
READ  374 
READ  37E 
PEAD  378 
READ  380 
READ  382 
READ  384 
READ  3SE 
READ  388 
READ  390 
PEAD  392 
READ  394 


14  02 


c 

c 
c 

CHECK  SIGN 

c 

IF(M(KI).NE.NC14))G0  TO  19 

KI=KI+1 

SSIGN=-1. 

13  KF=I 

KD1=KD-1 

SUM=0. 

c 
c 
c 
c 

CHECK  FDR  DECIMAL  POINT 

c 

DO  17  II=KI,KF 

IF(M(II).EQ.N(12))G0  TO  18 

17  CONTINUE 

URITE(6,105)ERR0R(G) 

c 

c  

C   CHECK  FOR  ILLEGAL  CHARACTERS 
c   

C 

DD  25  II=KI.KF 
DO  El  J=1.14 

IF(M(II).EQ.N(J))GO  TO  25 
21  CONTINUE 

URITE(G.105)ERROR(7) 
25  CONTINUE 

URITE(6.107)(M(II).II=1.80) 
C 

C   TERMINATE  EXECUTION  IF  DATA  FAULTY 
c   

C 

CALL  OUIT 

C 

c   

C   DETERMINE  DIGITS  OF  REAL  NUMBER 
c   

C 

18  DO  2  II=KI,KF 

IF(II.GE.KD)GO  TO  G 

DO  7  J=l,10 

L=J 

IF(M(II).EO.NCJ))GO  TO  8 

7  CONTINUE 
C 

C   TERMINATE  EXECUTION  IF  DATA  FAULTY 
c   

C 

URITE(G,105)ERROR(7) 
URITE(6.107)(M(IJ),IJ=1.80) 
CALL  QUIT 

8  SUM=SUM+A(L)«10.«»(KD1-II) 
GO  TO  2 

G  IF(II.EQ.KD)GO  TO  2 
DO  9  J=1.10 
L=J 
IF(M(II).EQ.N(J))GO  TO  10 

9  CONTINUE 

10  SUM=SUM+A(L)/10.««(II-KD) 
2  CONTINUE 


RCAD 

39B 

READ 

398 

READ 

400 

READ 

402 

READ 

404 

PEAD 

40G 

READ 

40B 

READ 

410 

READ 

412 

READ 

4)4 

READ 

4:G 

READ 

415 

READ 

420 

READ 

422 

READ 

424 

READ 

42G 

READ 

428 

READ 

430 

READ 

432 

PEAD 

434 

READ 

43G 

READ 

438 

READ 

440 

READ 

442 

READ 

444 

READ 

44B 

READ 

448 

READ 

450 

READ 

452 

PEAD 

454 

PEAD 

45G 

READ 

458 

PEAD 

4G0 

PEAD 

4G2 

READ 

4G4 

READ 

4GG 

READ 

4G8 

PEAD 

470 

PEAD 

472 

READ 

474 

READ 

47G 

READ 

478 

READ 

480 

PEAD 

4E2 

READ 

484 

READ 

4SG 

READ 

488 

READ 

490 

PEAD 

492 

READ 

494 

READ 

49G 

READ 

493 

READ 

500 

READ 

502 

READ 

504 

READ 

50G 

READ 

508 

READ 

510 

READ 

512 

READ 

514 

READ 

51G 

READ 

518 

READ 

520 

READ 

522 

READ 

524 

READ 

52G 

U03 


C   READ  528 

C    ACCOUNT  FOR  SIGN  READ  530 

C   READ  532 

C  FEAD  534 

SUM=SUM»SSIGN  READ  53B 

RETURN  PEAD  538 

END  READ  540 


SUBROUTINE  QUIT                                               QUIT  2 

C    QUI  T  G 

C                          SUBROUTINE  QUIT                          QUIT  8 

C   QUIT  10 

C      QUIT  12 

C                                                                    QUIT  14 

C   FUNCTIONS  -                                                  QUIT  IB 

C                                                                 QUIT  IB 

C        STOPS  EXECUTION  OF  STABL.                                   QUIT  20 

C                                                                 QUIT  22 

C        TERMINATES  PLOTTING  DEUICE.                                 QUIT  24 

C                                                                 QUIT  2B 

c   QU  j  T  28 

C                                                                 QUIT  30 

C   DEFINITION  -                                                 QUIT  3c 

C                                                                 QUIT  34 

C        PLOT      EXTERNAL  SUBROUTINE  USED  TO  MOUE  A  PLOTTING  PEN  TO  A  QUIT  36 

C                 NEW  POINT.   999  FOR  THIRD  ARGUMENT  TERMINATES        QUIT  38 

C                 PLOTTING.                                         QUIT  40 

C                                                                 QUIT  42 

c   QUIT  4g 

C                                                                 QUIT  48 

URITECG.102)                                                  QUIT  50 

102  FORMAT(//»                                                      QUIT  52 

1 10X?****»W*«***,«**«»*»****»»**»**»»»»»*«»*»»»»^/                 QUIT  54 

110X*»»«»»*  EXECUTION  OF  STABL  ABORTED  *•**••*/                                            QUIT  5G 

110X*««*«»***»«««»»»*«««*«»»»»»*««»»«««»«»*«»«»*/)                QUIT  58 

CALL  PLOT(0.,0.,999)                                             QUIT  GO 

STOP                                                            QUIT  G2 

END                                                             QUIT  64 


i*oii 


SUBROUTINE  PROFIL  PROP   2 

c   PROF   6 

C  SUBROUTINE  PROFIL                       PROF   8 

C  PROF   14 

C   FUNCTIONS  -  PROF   IB 

C  PROF   18 

C  INITIALIZES  CONTROL  CODES  FOR  PROBLEM.                       PROF  20 

C  PROF  22 

C  PRINTS  TITLE.                                            PROF  24 

C  PROF   25 

C  READS  AND  PRINTS  PROBLEM  DESCRIPTION.                       PROF  28 

C  PROF  30 

C  READS  PROFILE  GEOMETRY  DATA  DEFINING  THE  GROUND  SURFACE  AMD  THEPPOF  32 

C  SUBSURFACE  INTERFACES  BETWEEN  DIFFERING  SOIL  TYPES.            PROF   34 

C  PROF  3E 

C  CHECKS  DATA  FOR  SATISFACTION  OF  PROGRAM  REQUIREMENTS.          PROF  38 

C  PROF   40 

C  STORES  DATA  IN  BLOCK  COMMON.                               PROF  42 

C  PROF   44 

C  PRINTS  PROFILE  GEOMETRY  DATA.                              PROF  4G 

C  PROF   48 

C  ENTRY  SOIL  »•«»*»«•»«                                       PROF   50 

C  PROF   52 

C  READS  THE  NUMBER  OF  SOIL  TYPES.  ZERO  INDICATES  MODIFICATION  TO  PROF   54 

C  BE  MADE  TO  EXISTING  SOIL  DATA.                               PRCF   5B 

C  PRDr  58 

C  CHECKS  FOR  SOIL  DATA  MODIFICATION  OR  TOTAL  DEFINITION.         PROF  GO 

r  PROF   BP 

C  IF  MODIFICATION,  READS.  CHECKS.  AND  STORES  CHANGES.  THEN  PRINTSPROF   B4 

C  ALL  SOIL  DATA.                                           PROF  BB 

C  PROF   68 

C  IF  TOTAL  DEFINITION.  READS,  CHECKS.  STORES.  AND  PRINTS  ALL  SOILPROF  70 

C  DATA.                                                      PROF   72 

C  PPOF   74 

C  PPOF   78 

C   DEFINITIONS  -  PRO!7  80 

C  PROF  82 

C  ABS       STANDARD  FUNCTION  WHICH  DETERMINES  THE  ABSOLUTE      PROF  84 

C  UALUE  OF  A  NUMBER.                                 PROF   8B 

C  PROF   88 

C  AI        INTERCEPT  OF  BOUNDARY  (I).                        PROF  SO 

C  PROF   92 

C  AJ        INTERCEPT  OF  BOUNDARY  (J).                        PROF  34 

C  PROF  9B 

C  BI        SLOPE  OF  BOUNDARY  (I).                            PROF  38 

C  PROF  100 

C  BJ        SLOPE  OF  BOUNDARY  (J).                            PROF  102 

C  PROF  104 

C  BNDS      AN  ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTSPROF  10G 

C  DEFINING  THE  GROUND  SURFACE  AND  SUBSURFACE           PROF  108 

C  BOUNDARIES.                                     PROF  110 

C  PROF  112 

C  C         ARRAY  CONTAINING  ISOTROPIC  UALUES  OF  THE  MOHR-CCULCMEPROF  114 

C  COHESION  FOR  EACH  SOIL  TYPE.                      PROF  116 

C  PROF  118 

C  CU        ARRAY  CONTAINING  UALUES  OF  PORE  PRESSUE  CONSTATS  FORPROF  120 

C  EACH  SOIL  TYPE.                                  PROF  122 

C  PROF  124 

C  DENOI     DENOMINATOR  FOR  SLOPE  COMPUTATION  OF  BOUNDAPY  (I).   PROF  12G 

C  PROF  128 

C  DENOJ     DENOMINATOR  FOR  SLOPE  COMPUTATION  OF  BOUNDARY  CJ1.    PROF  130 

r  PRCF  132 

C  DESCR     ARRAY  CONTAINING  THE  SECOND  LINE  OF  THE  PROBLEM      PROF  134 

C  DESCRIPTION.                                      PROF  135 


ItO'j 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


DUMMY 

ERROR 
GAMMA 

GSAT 

I 

I DUMMY 

IEXIT 

II 
ILIMIT 

I  PLOT 
ISOIL 
ISTR 
I5URC 

ISURF 

ITP 

IWAT 

J 
K 

KCOEF 

NBND 

NBND1 

NCHA 

MLIMIT 

NP 

NPZ 


PROF  136 
DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER  UHENPROF  138 


AH  INTEGER  IS  TO  BE  READ. 

UARIABLE  REPRESENTING  CURRENT  ERROR  CODE. 


PPOF 
PROF 
PROF 
PROF 


140 
142 
144 
14B 


ARRAY  CONTAINING  UALUES  OF  THE  TOTAL  UNIT  WEIGHT  FOR  PROF  148 
EACH  SOIL  TYPE.  PROF  150 

PROF  152 
ARRAY  CONTAINING  UALUES  OF  THE  SATURATED  UNIT  WEIGHT  PROF  154 
FOR  EACH  SOIL  TYPE.  PROF  15E 

PROF  158 


IMDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 


PROF  1E0 
PPOF  1B2 

DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER  WHENPPOF  1E4 
A  REAL  NUMBER  IS  TO  BE  READ.  PROF  1GE 

PROF  1E8 


CONTROL  CODE  WHICH  TERMINATES  EXECUTION.  IF  DATA  IS 
INCONSISTANT  WITH  THE  REQUIREMENTS  OF  THE  PROGRAM. 

UARIABLE  USED  AS  DO  LOOP  INITIATION  UALUE. 


PROF  170 
PROF  172 
PROF  174 
PROF  17G 
PROF 


178 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  PROF  180 
AFFECTED  BY  SEARCHING  LIMITS  ESTABLISHED  BY  PROF  182 
SUBROUTINE  LIMITS.  PROF  184 

PROF  18E 
N0U7GEB0 
NQU7GEB0 
NOU7EEB0 
CONTROL  CODE  WHICH  INDICATES  DEFINITION  OF  ISOTROPIC  PRGF  188 
SOIL  DATA.  PROF  190 

PRO'1"  192 
CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  FROGP^M  PROF 
HANDLING  ANISOTROPIC  STRENGTH  CONDITION. 


CONTROL  CODE  WHICH  CONTROLS  TRANSLATION  OF  AXES  FOR 
PLOTTED  OUTPUT. 


PROF 
PROF 
CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  PPOF 


194 
19E 
19B 
200 


HANDLING  THE  SURCHARGE  LOADS  SPECIFIED  BY  SUBROUTINE  PROF  202 
LOADS.  PROF  204 

PRGF  20E 
CONTROL  CODE  WHICH  INDICATES  DEFINITION  OF  SPECIFIED  PROF  208 
TRIAL  FAILURE  SURFACE.  PPGF  210 

PPOF  212 
ARRAY  CONTAINING  SOIL  TYPE  INDICES  FOR  EACH  BOUNDARY. PROF  214 

PPOF  2iG 
CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  PROF  218 
HANDLING  THE  WATER  SURFACE  SPECIFIED  BY  SUEROUTINE  FROF  220 
WATER. 


INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

SOIL  TYPE  WHICH  IS  TO  HAUE  ISOTROPIC  PARAMETERS 
CHANGED. 

HORIZONTAL  EARTHQUAKE  COEFFICIENT. 

TOTAL  NUMBER  OF  PROFILE  BOUNDARIES. 

NBND  -  1 

NUMBER  OF  SOIL  TYPE  CHANGES. 

NUMBER  OF  SURFACE  GENERATION  LIMIT  BOUNDARIES. 

ARRAY  CONTAINING  NUMBER  OF  PIEZOMETRIC  SURFACE 
FOR  EACH  SOIL  TYPE. 

NUMBER  OF  PIEZOMETRIC  SURFACES  DEFINED. 


PROF  222 
PPOF  224 
PROF  22B 
PROF  228 
PROF  230 
PROF  232 
PROF  234 
PROF  23E 
PROF  238 
PROF  240 
PROF  242 
PROF  244 
PROF  24E 
PROF  248 
PROF  250 
PROF  252 
PROF  254 
JUL7EEB0 
JUL7GEE0 
JUL7EEB0 
PROF  25B 
PROF  258 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


NSAL 


NSOI 

NSOIL 

NSURC 


NTOP 


PHI 


PLOT 


QUIT 


READER 


RU 


SYMBOL 


TITLE 


TOL 
UKCOEF 


XM 


XP 
XI 


Yl 


NUMBER  OF  SOIL  TYPES  HAUING  ANISOTROPIC  STRENGTH 
PROPERTIES. 

NUMBER  READ  AS  NUMBER  OF  SOIL  TYPES. 

NUMBER  OF  SOIL  TYPES  SPECIFIED. 

NUMBER  OF  BOUNDARY  LOADS  SPECIFIED. 

NUMBER  OF  GROUND  SURFACE  BOUNDARIES. 


ANGLE  OF  INTERNAL  FRICTION  FOR  EACH  SOIL  TYPE. 

EXTERNAL  SUBROUTINE  USED  TO  MOUE  A  PLOTTING  PEN  TO 
NEW  POINT. 

SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MES5AGE. 


PROF  2G0 
PROF  2G2 
PROF  264 
PPOF  265 
PROF  268 
PROF  270 
PPOF  272 
PROF  274 
PROF  27B 
PPOF  278 
PROF  28CL 

ARRAY  CONTAINING  ISOTROPIC  UALUES  OF  THE  MOHR-COULOMBPROF  286 

PROF  283 
PROF  290 
N0U76EB0 
N0U76EE0 
N0U76EB0 
PROF  232 

TERMINATES  PLOTTING,  AND  TERMINATES  EXECUTION  OF  THE  PROF  234 

PROF  236 
PROF  298 
PROF  300 
PROF  302 
PROF  304 
PPOR  306 
PROF  30E 
N0U75EB0 
N0U7GEB0 
N0U76EB0 
N0U76EB0 
N0U75EB0 
N0U7SEB0 
NDU75EB0 
PROF  310 
PROF 
PROF 
PROF 
PROF 
PROF 
PROF 
PPOF 
PROF 
PPOF 


PROGRAM. 

SUBROUTINE  THAT  READS  INTEGER  OR  REAL  DATA  IN  FREE 
FORM  FORMAT. 

ARRAY  CONTAINING  UALUES  OF  THE  PORE  PRESSURE 
PARAMETER  FOR  EACH  SOIL  TYPE. 

EXTERNAL  SUBROUTINE  THAT  ACTIUATES  THE  PLOTTING  PEN 
TO  PLOT  CHARACTERS  OR  ON-CENTER  SYMBOLS. 

ARRAY  CONTAINING  THE  FIRST  LINE  OF  THE  PROBLEM 
DESCRIPTION. 

TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  ROUNDING. 

UERTICAL  EARTHQUAKE  COEFFICIENT. 

XI  -  TOL 

XI  *  TOL 

X  COORDINATE  OF  THE  PROJECTED  INTERSECTION  OF  TUO 
BOUNDARY  LINE  SEGMENTS. 

Y  COORDINATE  OF  THE  PROJECTED  INTERSECTION  OF  TUO 
BOUNDARY  LINE  SEGMENTS. 


DIMENSION  TITLEC4),  DESCRC4).  ERROR(ll) 

COMMON  /BLK01/IANGL. IBLK, IEXIT, ICIRC, ILIMIT, IPLOT. IREAD. ISEARC, 
1        IBLK2, ISOIL, ISTR, ISURC.  ISURF,  IWAT,  RD.  TOL 

COMMON  /BLK02/BNDSC 100. 4 ) . C( 20 ) , GAMMAC20 ) , GSAT (20 ) . ITP( 100 ) . NBND. 
1  NSOIL,NTOP.PHI(20),RU(20).CU(20).NP(20) 

COMMON  /BLK03/-UUAT,NPZ.NPIEZ(10).XPIEZ(10.40),YPIEZ(10.40) 

COMMON  /BLK04/DELTA(10).L0AD(10).NSURC.SURC(10.2).YSURC(10.2) 

CDMMON  /BLK0G/LIMIT(20.4),NLIMIT.NLMT 

COMMON  /BLK07/CSA(10,10).DIREC(10.10).ITPA(10).NDIREC(10).NSAL. 
1  PHIA(IO.IO) 

COMMON  /BLKll/CAUT.KCOEF. UKCOEF 

DATA  ERROR/4HPF01 . 4H^F02. 4HPF03. 4HPF04. 4HPF05. 4HPF0G. 4HSL01 . 
1   4HSL02.4HSL03.4HSL04.4HSL05/ 

REAL  KCOEF 

KCOEF=0. 

UKCOEF=0. 

NSOIL=0 


312 
314 
316 
318 
320 
322 
324 
326 
328 
PROF  330 
PROF  332 
PROF  334 
PROF  335 
PROF  338 
PROF  340 
PROF  342 
PROF  344  - 
PPOF  346 
PROF  348  - 
PROF  350 
PROF  352  - 
PROF  354  ~ 
PROF  356 
PROF  358 
PROF  360  - 
PPOF  362 
PROF  364 
PROF  366 
PROF  36JL  « 
PROF  372 
PROF  374 
PROF  376 
PROF  378 


*  Mark  between  lines  indicates  that  lines  have  been  removed. 


IiOY 


C 

c 
c 
c 
c 


c 

c 
c 
c 
c 


c 
c 
c 
c 
c 


NPZ=0 
NSURC=0 
NLIMIT  =0 
NSAL=0 


INITIALIZE  CONTROL  CODES 


I5TR=0 

IUAT=0 

ISURC=0 

ILIMIT=0 

ISOIL=0 

ISURF=0 

IF(IPLOT.EQ.O)  GO  TO  28 


IF  MOT,  MAKE  PAGE  MARK  AMD  POSITION  NEU  ORIGIN 


CALL  PLOTC14.0.0..-3) 
CALL  PLOT(-2.5.0..3) 
CALL  PL0T(-2.5.-1.4.2) 
IPLOT=0 


PRINT  TITLE 


28  URITE(G.lll) 
111  F0RMAT(1H1,23X,*— SLOPE  STABILITY  ANALYSIS—*./ 

1  21X, ^SIMPLIFIED  JANBU  METHOD  OF  SLICES**./ 

1  25X, ^IRREGULAR  FAILURE  SURFACES!*.//) 


C 
C 

c 
c 
c 


READ  AND  PRINT  PROBLEM  DESCRIPTION 


READC5. 113)  TITLE.  DESCR 
113  FORMATC8A10) 

WRITE (S. 112)  TITLE.  DESCR 
112  FORMATC/z.lOX.^PROBLEM  DESCRIPTION   *.4A10. /32X.4A10.//) 

CALL  SYMBOL  (0. .7.5. 0. 14. TITLE. 0. . 40) 

CALL  SYMBOL  (0. .  7.2. 0. 14. DESCR.  0. .  40) 


C 

C 
C 
C 
C 


C 
C 
C 
C 
C 


READ  NUMBER  OF  BOUNDARIES  DATA 


CALL  READER(DUMMY.NBND.O) 
CALL  READER(DUMMY.NTOP.O) 


PRINT  NUMBER  OF  BOUNDARIES  DATA 


URITE(G.107)NTOP.NBND 
107  FORMAT (//.l OX. ^BOUNDARY  COORDINATES*.//. 
1    12X.I3.*  TOP   BOUNDARIES*./. 
1   12X.I3.*  TOTAL  BOUNDARIES*) 


PPOF  380 
PROF  382 
PROF  384 
PPOF  38B 
PROF  388 
PROF  390 
war  39? 
PRO!-  394 
PROF  39B 
PROF  39E 
PROF  400 
PROF  402 
PROF  404 
PROF  40G 
PROF  408 
PROF  405 
PROF  410 
PROF  411 
PROF  412 
PROF  413 
PROF  414 
PROF  415 
PROF  41G 
PROF  417 
PROF  418 
PPOF  419 
PROF  420 
PROF  421 
PRO^  422 
PPOF  423 
PROF  424 
PROF  425 
PROF  42B 
PROF  427 
PPOF  428 
PROR  430 
PROF  432 
PROF  434 
PROF  43B 
PROF  438 
PROF  440 
PROF  442 
PROF  443 
PROF  444 
PROr  445 
PROF  44B 
PROF  448 
PROF  450 
PROF  452 
PROF  454 
PROF  45B 
PROF  458 
PROF  4B0 
PROF  4G2 
PROF  464 
PROF  466 
PROF  4B8 
PROF  470 
PROF  472 
PROF  474 
PROF  47E 
PROF  478 


uoa 


c 
c 
c 
c 
c 


CHECK  IF  NUMBER  OF  GROUND  SURFACE  BOUNDARIES  IS  LESS 
THAN  OR  EQUAL  TO  THE  TOTAL  NUMBER  OF  BOUNDARIES 


IF(NBND.GE.NTOP)GO  TO  IB 
URITE(6.105)ERROR(1) 
105  FORMATS.  10X,14H»«»«   ERROR  -  rA4.GH 
IEXIT=1 


C 
C 

c 

C 

c 


c 
c 

c 
c 
c 


CHECK  BOUNDARY  STORAGE  LIMIT 


1G  IF(NBND.LE.100)G0  TO  20 
URITE(G.105)ERROR(2) 
CALL  QUIT 


PRINT  BOUNDARY  DATA  HEADINGS 


20  URITECG.119) 
119  FORMAT ('/. 

1   1  OX.  ^BOUNDARY*,  5X.  *X-LF.FT*.  5Xt  *Y-LEFTX,  4X»  *X-RIGHT*t  4X. 

1   *Y-RIGHT*,4X,;>!50IL  TYPE^./t 

1    13X,*N0.*.BX.*(FT);*,7X,*(FT);''.7X.*(FT);«!,7X,*(FT)*.5X, 

1    *BELOU  BND*./) 


C 
C 

c 

C 

c 
c 


READ  BOUNDARY  DATA.  CHECK  FOR  1ST  QUADRANT 
PROFILE.  AND  CHECK  BOUNDARY  END  POINT  ORDER 


DO  4  I=1.NBND 
DO  2  J=1.4 

CALL  READER(BNDSd.J).IDUMMY.l) 
IF(BNDS(I.J).GT.-TOL)GO  TO  2 
URITE(E.104)EEROR(3).I 
104  FORMATS.  10X.14H»«»»  ERROR  -  .A4.GH  •»*«,5X.8HB0UNDARY,  13.  /") 
IEXIT=1 

2  CONTINUE 
IF((BNDSCI»1)-BNDS(I.3)).LT.T0L)G0  TO  3 
WRITE(G.104)ERROR(4).I 

IEXIT=1 

3  CALL  READER(DUMMY.ITPd).O) 

4  CONTINUE 
IF(NT0P.EQ.1)G0  TO  14 


C 
C 

c 
c 
c 


CHECK  GROUND  SURFACE  BOUNDARY  ORDER 


DO    10    I=2.NT0P 

IF(ABS(BNDS(I-1.3)-BNDS(I.1)).LT.T0L.AND.ABS(BNDS(I-1,4)-BNDS(I. 
D.LT.TODGO  TO   10 
J=I-1 

WRITECG. 103)ERROR(5). J.  I 
103  FORMAT(/.10X,14H»««»  ERROR  -  tA4,6H  •••*t5X. 10HBOUNDARIES. 13. 
1   4H  ANDtI3./) 
IEXIT=1 
10  CONTINUE 


PROF  480 
PROF  482 
PROF  484 
PROF  48G 
PROF  488 
PROF  490 
PROF  432 
PROF  494 
PROF  496 
PROF  498 
PROF  500 
PROF  502 
PROF  504 
PFOF  50B 
PPOr  508 
PROF  510 
PROF  512 
PROF  514 
PROF  51G 
PROF  518 
PROF  520 
PROF  522 
PROF  524 
PROF  52B 
FROF  528 
PROF  530 
PROF  532 
PRO17  534 
PROF  53B 
PRC7  538 
PROF  540 
PROF  542 
PROF  544 
PROF  54G 
PROF  548 
PROF  550 
PROF  552 
PPOF  554 
PPOF  556 
PROF  558 
PROF  5B0 
PROF  562 
PROF  564 
PROF  566 
PROF  568 
PROF  570 
PROF  572 
PPOF  574 
PPOF  576 
PROF  578 
PROF  580 
PROF  582 
PROF  584 
PrOF  586 
2)PROF  58S 
PROF  590 
PROF  592 
PROF  594 
PROF  595 
PROF  598 
PROF  BOO 
PROF  602 
PROF  G04 


U09 


C 
c 
c 
c 


c 
c 
c 
c 
c 
c 


c 
c 

c 
c 
c 

c 
c 
c 
c 
c 

c 
c 
c 
c 
c 


CHECK  SUBSURFACE  BOUNDARY  ORDER 


14  IF(NTOP.EQ.NBND)GO  TO  5 
NBND1=NBND-1 
DO  8  I=NTOP,NBNDl 
11=1+1 
DO  8  J=II,NBND 


CHECK  FOR  OUERLAP  OF  HORIZONTAL  PROJECTIONS 
OF  BOUNDARIES  (I)  AND  (J) 


IFUBNDSU.  1KGE.BNDS(I.3)).0R.(BNDS(J»3).LE.BNDS(I.1)))G0  TO  8 
DENOI=BNDS( I. 1 )-BNDSC 1.3) 
DENOJ=BNDS(J, 1)-BMDS(J.3) 


CHECK  IF  BOUNDARY  (I)  IS  UERTICAL 


IF(ABS(DENOI).GE.TOL)GO  TO  7 


CHECK  IF  BOUNDARY  (J)  IS  UERTICAL 


IF(ABS(DENOJ).GE.TOL)GO  TO  9 


CHECK  IF  UERTICAL  BOUNDARY  (I)  IS  ABOUE  UERTICAL  BOUNDARY  (J) 

IF((BNDS(J.2)-BNDSU,2)).LT.T0L.AND.(BNDS(J.4)-BNDSi.I.2)).LT.T0 
l.AND.(BNDS(J.2)-BNDS(I.4)).LT.T0L.AND.(BNDS(J.4)-BNDS(I.4)).LT 
l)GO  TO  8 

URITECG, 103)ERROR(6). I. J 

IEXIT=1 

GO  TO  8 
C 

C   CHECK  IF  BOUNDARY  CJ)  IS  UERTICAL 
C   

C 

7  IF(AB5(DEN0J),GE.T0L)G0  TO  11 

BI=(BNDS(I.2)-BNDS(I.4) VDENOI 

AI=BNDS(I.2)-BI»BNDS(I.l) 

Y1=AI+BI»BNDS(J»1) 
C 
C 
C 

C 

IF((BNDSU.2)-Y1).LT.T0L.AND.(BNDS(J.4)-Y1).LT.T0L)G0  TO  8 
URITEC6, 1C3)ERR0R(G). I. J 
IEXIT=1 
GO  TO  8 
9  BJ=(BNDS(J,2)-BNDS(J.4))/DEN0J 
AJ=BNDS( J. 2)-EJ»BNDS( J. 1 ) 
Y1=AJ+BJ»BNDS(I,1) 


CHECK  IF  BOUNDARY  (I)  IS  ABOUE  UERTICAL  BOUNDARY  (J) 


PPOF  GOG 
PPOF  G08 
PPOF  G10 
PROF  B12 
PROF  G14_ 
PROF  B18 
PROF  G20 
PROF  G22 
PPOF  G24 
PROF  G2G 
PROF  G28 
PROF  G30 
FROF  G32 
PROF  G34 
PROF  G3G 
PRO^  E38 
PROF  G40 
PROF  542 
PROF  G44 
PROF  64G 
PROF  G48 
PROF  G50 
PROF  G52 
PROF  G54 
PROF  B5G 
PROF  G58 
PROF  G60 
PROF  G62 
PROF  BB4 
PROF  GBB 
PROF  668 
PROF  670 
PROF  672 
PROF  674 
PPOF  676 
PROF  678 
TOLPROF  680 
PROF  682 
PROF  684 
PROF  BS6 
PROF  688 
PROF  630 
PROF  692 
PPOF  694 
PROF  69B 
PROF  698 
PROF  700 
PPOF  702 
PROF  704 
PROF  706 
PROF  708 
PROF  710 
PROF  712 
PROF  714 
PROF  71B 
PROF  718 
PROF  720 
PROF  722 
PROF  724 
PROF  726 
PROF  728 
PROF  730 
PROF  732 


It  10 


c 
c 
c 
c 


CHECK  IF  UERTICAL  BOUNDARY  (I)  IS  ABOUE  BOUNDARY  (J) 


IF((Y1-BNDS(I,2)).LT.T0L.AND.(Y1-BNDS(I.4)).LT.T0L)G0  TO  8 
URITE(G,103)ERROR(G).I.J 
IEXIT=1 
GO  TO  8 
11  BI  =  (BNDS(I.2)-BNDS(I.4)VDEN0I 
AI=BNDS(I.2)-BI«BNDS(I.l) 
BJ=(BND5(J.2)-BNDS(J.4))/DEN0J 
AJ=BNDS(J.2)-BJ*BNDS(J.l) 
C 

C   CHECK  IF  BOUNDARIES  (I)  AND  (J)  ARE  PARALLEL 
c   

C 

IF(ABS(BI-BJ).GE.TOL)GO  TQ  15 
C 

C   CHECK  IF  BOUNDARY  (I)  IS  ABOUE  PARALLEL  BOUNDARY  (J) 

C 

IF(CAJ-AI).LT.TOL)GO  TO  8 

URITECG. 103)ERROR(G). I. J 

IEXIT=1 

GO  TO  8 
15  X1=(AI-AJ)/(BJ-BI) 

XP=X1+T0L 

XN=X1-T0L 
C 

C 

C 

c 


c 
c 
c 
c 
c 


CHECK  IF  BOUNDARY  (I)  IS  ABOUE  BOUNDARY  (J)  FOR  REMAINING  CASES 


IF(BNDS(J, 1).GE.XM.AND.BI.GT.BJ)G0  TO  8 
IF(BNDS(J.3).LE.XP.AND.BJ.GT.BI)G0  TO  8 
IF(BNDSCI.1).GE.XM.AND.BI.GT.BJ)G0  TO  8 
IF(BNDS(I.3).LE.XP.AND.BJ.GT.BI)G0  TO  8 
URITE(G,103)ERROR(6),I.J 
IEXIT=1 
8  CONTINUE 


PRINT  BOUNDARY  DATA 


5  URITE(6.108HI.CBNTJS(I»J).J=1.4),ITP(I),I=1,NEND) 
108  F0RMAT(12X.I3,3X,4F11.2,7X,I2) 
RETURN 


URITE(G.lOl) 
101  F0RMAT(1H1.9X,*IS0TR0PIC  SOIL  PARAMETERS*.") 


PPOF  734 
PROF  736 
PPOF  738 
PPOF  740 
PROF  742 
PROF  744 
PROF  746 
PROF  746 
PROP  750 
PPOF  752 
PROF  754 
PROF  75B 
PROF  758 
PROF  7G0 
PROF  7B2 
PROF  7G4 
PROF  766 
PROF  7B8 
PRCF  770 
PPOF  772 
PROF  774 
PROF  77G 
PROF  778 
PPO"  780 
PROF  782 
PROF  784 
PROF  78B 
PROF  788 
PROF  790 
PROF  792 
PROF  794 
PROF  796 
PROF  798 
PROF  800 
PROF  802 
PROF  804 
PROF  80B 
PROF  BOB 
PROF  810 
PROF  812 
PPOF  814 
PPOF  81B 
PROF  818 
PROF  820 
PROF  822 
PPOF  824 
PROF  826 
PROF  828 
PROF  830 
PROF  832 
PROF  834 
PROF  836 
PROF  838 
PROF  840 
FROF  842 
PROF  844 
PROF  84B 
PROF  848 
PROF  850 
PROF  852 
PROF  854 
PROF  85B 
PROF  858 
PROF  860 


mi 


C   READ  NUMBER  OF  SOIL  TYPES 

C 

CALL  READER ( DUMMY. NSOI. 0) 
C 

C   CHECK  FOR  SOIL  TYPE  PARAMETER  CHANGES 
C 


c 
c 

c 
c 
c 


IF(NSOI.EO.0)GO  TO  18 
NS0IL=N50I 


PRINT  NUMBER  OF  SOIL  TYFES 


WRITECG. 109)NSOIL 
109  FORMATU0X.I2.*  TYPE(S)  OF  SOIL*) 


C 

c 
c 

c 
c 
c 


c 
c 
c 
c 
c 


CHECK  IF  NUMBER  OF  SOIL  TYPES  IS  GREATER 
THAN  OR  EQUAL  TD  50IL  TYPE  INDICES 


DO  17  I=1,NBND 
IF(NSOIL.GE.ITP(I))GO  TO  17 

URITE(G.104)ERROR(7).I 
IEXIT=1 
17  CONTINUE 


CHECK  SOIL  PARAMETER  STORAGE  LIMIT 


IF(NSOIL.LE.20)GO  TO  21 
URITE(6.105)ERROR(8) 
CALL  QUIT 


PRINT  SOIL  PARAMETER  HEADINGS 


PI  URITECG.120) 
120  FORMAT  (", 

1 10X. *SOIL*. 3X, *TOTAL*. 3X. ^SATURATED*. 3X, ^COHESION*. 2X, 

1    ^FRICTION*.  4X,  xPOREX.  4X,  ^PRESSURE*.  2X.  *PIEZOMETRIC*»  /. 

110X,*TYPE*.2X,*UNIT  UT.*. 2X, *UNIT  UT.*.2X, ^INTERCEPT*, 4X, 

1    WANGLE?:.  3X,  ^PRESSURE*. 2X. ^CONSTANTA  4X,  ^SURFACE*. /. 

lllX.*N0.*.3X,*(PCF)*,5X,;'i(PCF)*.6X,;*(PSF)*,6X. 

1    *(DEG)*.2X.  ^PARAMETER*.  4X. *(PSF)*,8X»*N0.*. /) 


C 

c 
c 
c 
c 


READ  SOIL  PARAMETERS 


DO  G  I=l.NSOIL 

CALL  READER(GAMMACI).IDUMMY.l) 
CALL  READER(GSAT(I).IDUMMY,1) 
CALL  READER(Cd).IDUMMY.l) 
CALL  READER(PHI(I),mUMMY,l) 
CALL  READER(RUCI).IDUMMY.l) 
CALL  READER(CU(I).IDUMMY,1> 
CALL  READER(DUMMY.NPd).O) 
CONTINUE 


PROF 

8E2 

PROF 

BG4 

PROF 

BGG 

PROF 

eE8 

PROF 

870 

FROF 

872 

PROF 

674 

PROF 

87G 

PROF 

878 

PROF 

860 

PROF 

882 

PROF 

8E4 

PROF 

836 

PRO"7 

883 

PROF 

890 

PROF 

es2 

PROF 

894 

PROF 

896 

PROF 

838 

PROF 

900 

PROF 

902 

PROr 

904 

PROF 

90G 

PPOF 

S08 

PROF 

910 

PROF 

912 

PROF 

914 

PROF 

916 

PROF 

918 

PROF 

920 

PROF 

922 

PROF 

324 

PROF 

926 

PROF 

328 

PROF 

330 

PROF 

332 

PRO!7 

934 

PROF 

936 

PROF 

333 

PROr 

940 

PROF 

342 

PROF 

344 

PROF 

946 

PROF 

948 

PROF 

950 

PROF 

952 

PROF 

954 

PROF 

956 

PROF 

958 

PROF 

960 

PROF 

962 

PROF 

954 

PROF 

366 

PROF 

368 

PROF 

370 

PROF 

372 

PROF 

374 

PROF 

376 

PROF 

378 

PROF 

380 

PROF 

3S2 

PROF 

384 

PROF 

386 

PROF 

38" 

PROF 

988 

PROF 

990 

U12 


C 

c 
c 
c 


PRINT  SOIL  PARAMETERS 


WRITE(G.110HI,GAMMA(I).GSAT(I).C(I).PHI(I),RU(I).CU(I).NP(I). 

1  I=liMSOIL) 

110  FORMATC10X, I3.F9.1.F10.1.F11.1.F10.1.F9.2.F11.1.I10) 

RETURN 


C 

c 
c 
c 
c 


c 
c 
c 
c 
c 


CHECK  IF  SOIL  DATA  DEFINED  BEFORE  CHANGING  IT 


18  IF(NSOIL.CT.0)GO  TO  24 
URITE(6,105)ERROR(9) 
IEXIT=1 


READ  AND  PRINT  NUMBER  OF  SOIL  TYPE  CHANGES 


24  CALL  READER ( DUMMY. NCHA.O) 
URITE(G.121)NCHA 
121  FORMATC1H0. 

1  SX. ^ISOTROPIC  PARAMETERS  OF*. 13.*  SOIL  TYPE(S)  HAUE 
I/O 


BEEN 


C 

c 
c 
c 

C 


c 
c 

c 
c 
c 

c 
c 
c 
c 
c 


CHECK  NUMBER  OF  SOIL  TYPE  CHANGES 


IFCNCHA.LE.NSOIDGO  TO   12 

URITE(G.105)ERROR(10) 

IEXIT=1 


CHECK  IF  NUMBER  OF  SOIL  TYPE 
CHANGES  EXCEEDS  STORAGE  LIMITS 


IF(NCHA.GT.20)CALL  OUIT 
12  DO  22  I=1.NCHA 


READ  INDICE  OF  SOIL  TYPE  TO  BE  CHANGED 


CALL  READER(DUMMY.K.O) 


PRINT  INDICE  OF  SOIL  TYPE  TO  BE  CHANGED 


URITE(6,114)K 
114   FORMATC, 

115X.*CHANGE  SOIL  TYPE*. 13) 


C 
C 

c 
c 
c 


CHECK  IF  SOIL  TYPE  TO  BE  CHANGED  IS  DEFINED 


IFCK.LE.NSOIDGO  TO  19 

URITE(G,105)ERR0R(11) 

IEXIT=1 


rmi  'im,' 

I VI II  !l*M 

mil  H9Ci 

PkOf  998 
PROF1000 
PPOF1001 
PROF100? 
PPOF1004 
PR0F100G 
PROF100B 
PROF1010 
PROF1012 
PROF1014 
PROF101G 
PROF1018 
PROF1020 
PROF1052 
PPOF1024 
PROF102E 
PROF  1028 
PPOF1030 
PROF1032 
PROF1034 
PROF103G 
CHANGED*PRCF1038 
PPOF1040 
PRDF1042 
PROF1044 
PROF104E 
PROF1048 
PROF1050 
PROF1052 
PROF1054 
PROF105G 
PROF1058 
FROF10G0 
PP0F10G2 
PP0F1064 
PROF10GG 
PP0F10G8 
PROF1070 
PRDF1072 
PROF1074 
PR0F1C7G 
PR0F1078 
PROF1080 
PPOF1082 
PROF1084 
PROF108G 
PROF  1088 
PPOF1090 
PPOF1092 
PPOF1 094 
PP0F109G 
PROF  1098 
PROF1100 
PP0F1102 
PROF1104 
PROF110G 
PROF1108 
PROF1110 
PR0F1112 
PR0F1114 
PRDF111G 
PROF1118 


1*13 


CHECK  IF  SOIL  TYPE  INDICE  EXCEEDS  STORAGE  LIMITS 


IF(K.GT.20)CALL  QUIT 


READ  CHANGES  TO  SOIL  TYPE 


.  19  CALL  READER(GAMMACK).IDUMMY.l) 

CALL  READER(GSAT(K),IDUMMY,1) 

CALL  READER(C(K),IDUMMY,1) 

CALL  READERCPHI(K).IDUMflY.l) 

CALL  READER ( RU ( K), I DUMMY. 1) 

CALL  READER (CU(K). I DUMMY, 1) 

CALL  READER(DUMMY,NP(I).0) 

22  CONTINUE 

C 

C   

C   PRINT  SOIL  PARAMETER  HEADINGS 
c   

C 

URITECG. 120) 

C 

C   

C   PRINT  SOIL  PARAMETERS 
c   

C 

WRITE(G.110)(I.GAMMA(I).GSATCI),C(I).PHI(I),RU(I).CU(I).NP(I). 
1  I=l,NSOIL) 

RETURN 
END 


PP0F1120 
PR0F1122 
PROF  11 24 
FR0F112G 
PROF  11 28 
PROF1130 
PROF  11 32 
PR0F1134 
PR0F113G 
PR0F1138 
PROF1140 
PR0F1142 
PRDF1144 
PP0FU4E 
PR0F114E 
PROF1150 
PR0F1151 
PROF  11 52 
PR0F1154 
PR0F115G 
PROF  11 58 
PR0F11G0 
PR0F11G2 
PR0F11G4 
PR0F11GG 
PR0F11G8 

PRO^mo 

PR0F1172 
PR0F1174 
PRGF1176 
PR0F1177 
PROF  11 78 
PROF11B0 
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SUBROUTINE  ANISO 


C 

C 
C 

C 

C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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c 
c 
c 
c 
c 
c 
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c 
c 
c 
c 


SUBROUTINE  ANISO 


FUNCTIONS  - 

READS  THE  NUMBER  OF  ANISOTROPIC  SOIL  TYPES. 


an 
ftM 

p,N 

RN 

AN 

AN 

AN 
AN 
AN 
AN 
Ail 

IF  EOUAL  TO  ZERO.  EXISTING  ANISOTROPIC  SOIL  DATA  IS  SUPPRESSED  AN 
OR  REACTIUATED  IF  PREUIOUSLY  SUPPRESSED.  AN 

AN 
IF  GREATER  THAN  ZERO,  READS.  CHECKS.  STORES.  AND  PRINTS  AN 
ANISOTROPIC  SOIL  DATA.  AN 

AN 

AN 

AN 
AN 
AN 
ARRAY  CONTAINING  UALUES  OF  MOHR-COULOME  COHESION  FOR  AN 
EACH  SPECIFIED  DIRECTION  RANGE  OF  EACH  ANISOTROPIC   AN 
SOIL  TYPE.  AN 

AN 
ARRAY  CONTAINING  UALUES  DEFINING  THE  COUNTEPCLOCKWISEAN 
LIMIT  OF  EACH  DIRECTION  RANGE  OF  EACH  ANISOTROPIC  AN 
SOIL  TYPE.  AN 

AN 
DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER  WHENAN 
AN  INTEGER  IS  TO  BE  READ.  AN 

AN 
UARIABLE  REPRESENTING  CURRENT  ERROR  CODE.  AN 

AN 
INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.  AN 

AN 
DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER  WHENAN 
A  REAL  NUMBER  IS  TO  BE  READ.  AN 

AN 
CONTROL  CODE  WHICH  TERMINATES  EXECUTION.  IF  DATA  IS  AN 
INCONSISTANT  WITH  THE  REQUIREMENTS  OF  THE  PROGRAM.    AN 

AN 


DEFINITIONS 
CSA 

DIREC 

DUMMY 

ERROR 

I 

I DUMMY 


IEXIT 

ISTR 

ITPA 

J 

ND 

NDIREC 

NSA 

NSAL 

NSOIL 
PHIA 


CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  AN 


HANDLING  THE  ANISOTROPIC  SOIL  STRENGTH  DATA. 

ARRAY  CONTAINING  THE  INDICES  OF  ANISOTROPIC  SOIL 
TYPES. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

DO  LOOP  TERMINATOR. 

ARRAY  CONTAINING  THE  NUMBER  OF  DIRECTION  RANGES  FOR 
EACH  ANISOTROPIC  SOIL  TYPE. 

NUMBER  READ  AS  NUMBER  OF  SOIL  TYPES  HAUING 
ANISOTROPIC  STRENGTH  PROPERTIES. 

NUMBER  OF  SOIL  TYPES  HAUING  ANISOTROPIC  STRENGTH 
PROPERTIES. 

NUMBER  OF  SOIL  TYPES  SPECIFIED. 


10 

ID 
10 
10 

10 
10 
10 
10 
IC 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
ID 
10 
10 
10 
10 
10 
10 
10 
10 
10 
ID 
ID 
ID 
ID 
ID 
ID 
ID 
ID 
ID 
ID 
ID 
10 
ID 
10 
10 


2 
A 
G 

8 
10 
12 
14 

IS 

18 
20 
22 
24 
25 
2E 
30 
32 
34 
35 
33 
4  0 
42 

4h 
4E 
4B 
50 
52 
54 
55 
58 
GO 
52 
54 
55 
5S 
70 
72 

74 

75 

~e 
so 

82 
84 
85 
S3 
90 
52 
34 
95 
38 


Ahl 
AN 
AN 
AN 
Ah 
AN 

ANIO  100 
ANIO  102 
ANIO  104 
ANIO  10G 
ANIO  108 
ANIO  110 
ANIO  112 
ANIO  114 
ANIO  IIS 
ANIO  118 
ANIO  120 
ANIO  122 
ANIO  124 
ANIO  126 
ARRAY  CONTAINING  UALUES  OF  THE  MOHR-COULOMB  ANGLE  OF  ANIO  128 
INTERNAL  FRICTION  FOR  EACH  SPECIFIED  DIRECTION  RANGE  ANIO  130 
OF  EACH  ANISOTROPIC  SOIL  TYPE.  ANIO  132 

ANIO  134 
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C        OUIT      SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE.  AMID  I 3E 
C                 TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE  AMIO  13B 

C                 PROGRAM.  AHIO  110 

C  ANIO  142 

C        RD        FACTOR  FOR  CONUERSION  OF  DEGREES  TO  RADIANS.  N0U7GEB0 

C  N0U76EB0 
C        READER    SUBROUTINE  THAT  READS  INTEGER  OR  REAL  DATA  IN  FREE   ANIO  144 

C                 FORM  FORMAT.  OHIO  14B 

C  ANIO  148 

C  ANIO  154 
COMMON  /BLKOl/IANGL.IBLK.IEXIT.ICIRC.ILIMIT.IPLOT.IREAD.ISEARC.    ANIO  15G 

1  IBLK2.IS0IL.ISTR.ISURC.ISURF.IUAT.RD.T0L  ANIO  158 
COMMON  /BLK02/ENDS(100,4).C(20).GAMMA(20).GSAT(20).ITP(100).NEND.  ANIO  1E0 

1  NSDIL.NTOP.PHI(20).RU(20J.CU(20),NP(20)  ANIO  1E2 
COMMON  /BLK07'CSA(10.10).DIREC(10.10).ITPA(10),NDIRECC10).NSAL.    ANIO  164 

I  PHIAC10.10)  ANIO  166 
DIMENSION  ERR0RC7)  ANIO  168 
DATA  ERROR/4HAI01.4HAI02.4HAI03.4HAI04.4HAI05.4HAI06.4HAI07/  ANIO  170 

C  ANIO  172 

c   ANIO  174 

C   READ  NUMBER  OF  ANISOTROPIC  SOIL  TYPES  ANIO  176 

c   AMIO  178 

C  ANIO  180 

CALL  READER( DUMMY. NSA.O)  ANIO  182 

C  ANIO  184 

c   ANIO  186 

C   CHECK  FOR  DATA  SUPPRESSION  ANIO  188 

c   ANIO  190 

C  ANIO  132 

IF(NSA.NE.0)GO  TO  4  ANIO  194 

IF(ISTR.EQ.O)GO  TO  10  ANIO  196 

I5TR=0  ANIO  19B 

URITE(G.102)  ANIO  200 

102  FORMAT (••/,  ANIO  202 

II  OX. ^ANISOTROPIC  STRENGTH  DATA  HAS  BEEN  SUPPRESSED*)  ANIO  204 
RETURN  ANIO  206 

C  ANIC  208 

c   ANIO  210 

C   CHECK  IF  DATA  DEFINED  BEFORE  ANIO  212 

C   SUPPRESSING  OR  REACTIUATING  IT  ANIO  214 

c   ANIC  216 

C  ANIO  218 

10  IF(NSAL.GT.0)GO  TO  14  ANIO  220 

URITECB. lOl)ERROR(l)  ANIO  222 

101  FORMAT(/,10X.14H»»»*  ERROR  -  .A4.GH  ••••,/)  ANIO  224 

IEXIT=1  ANIO  226 

C  ANIO  228 

c   ANIO  230 

C   REACTIUATE  SUPPRESSED  DATA  ANIO  232 

c   ANIO  234 

C  ANIO  236 

14  ISTR=1  ANIO  238 

URITEC6.103)  ANIO  240 

103  FORMATC/,  ANIO  242 
110X.*SUPPRESSEJJ  ANISOTROPIC  STRENGTH  DATA  HAS  BEEN  REACTIUATED*)   AMO  244 

RETURN  ANIO  246 

4  NSAL=NSA  ANIO  248 

C  ANIO  250 

C   ANIO  252 

C   PRINT  NUMBER  OF  ANISOTROPIC  SOIL  TYPES  ANIO  254 

q        phI0  256 

C  AMD  258 

URITE(6.10S)NSAL  ANIO  260 

109  FORMAT (///,  AN 10  262 

1  9X.*ANIS0TR0PIC  STRENGTH  PARAMETERS*,/  ANIO  264 

113X.I2.*  SOIL  TYPECS)*)  ANIO  266 


Ui6 


C  ANIO  2G3 

c   ANIO  270 

C    CHECK  IF  NUMBER  OF  ANISOTROPIC  SOIL  ANIO  272 

C    TVPES  EXCEEDS  NUMBER  OF  SOIL  TYPES  ANIO  274 

c   fthIO  276 

C  Ah  10  278 

IF(NSAL.LE.NSOIL)CO  TO  5  ANIO  280 

WRITECG, 101)ERR0R(2)  ANIO  282 

IEXIT=1  ANIO  284 

C  Ah 10  2BE 

c   ftMID  288 

C   CHECK  ANISOTROPIC  SOIL  PARAMETER  STORAGE  LIMIT  ANIO  290 

C   ANIO  232 

C  ANIO  294 

5  IF(NSAL.LE.10)GO  TO  3  ANIO  29S 

URITE(S.101)ERR0R(3)  ANIO  298 

CALL  QUIT  ANIO  300 

3  DO  9  I=1.NSAL  ANIO  302 

C  ANIO  304 

c   ANIO  30G 

C    READ  AND  PRINT  INDICE  OF  ANISOTROPIC  SOIL  TYPE  ANIO  308 

C  ANIO  312 

CALL  READER(DUMMY.ITPAd)iO)  ANIO  314 

URITE(6,113)ITPA(I)  ANIO  31B 

113  FORMATS,  ANIO  318 
110X.KSOIL  TYPE*. 13.*  IS  ANISTROPIC*)  ANIO  320 

C  ANIO  322 

C   ANIO  324 

C   CHECK  SOIL  TYPE  NUMBER  OF  ANISOTROPIC  SOIL  ANIO  32E 

C   ANIO  328 

C  ANIO  330 

IFdTPACn.LE.NSOIDGO  TO  8  ANIO   332 

URITE(6.104)ERR0R(4).I  ANIO   334 

104  FORMATU.10X, 14H»»»«  ERROR  -  ,A4,6H  «»«».5X.3HS0IL  TYPE. 13)  ANIO  33G 

IEXIT=1  ANIO  338 

C  ANIO  340 

c   AriIo  342 

C    READ  AND  PRINT  NUMBER  OF  DIRECTION  ANIO  344 

C   RANGES  FOR  ANISOTROPIC  SOIL  TYPE  ANIO  34G 

c   fiM  10  34S 

C  ANIO  350 

8  CALL  READER(DUMMY.NDIRECd).O)  ANIO  352 

ND=NDIREC(I)  ANIO  354 

URITE(6,114)ND  ANIO  356 

114  FORMATU.  ANIO  358 

110X.*NUMBER  OF  DIRECTION  RANGES  SPECIFIED  =*.I3)  ANIO  3G0 

C  ANIO  3B2 

c   AMID  3B4 

C   CHECK  DIRECTION  RANGE  STORAGE  LIMIT  ANIO  3GB 

q        flNIO  3B3 

C  ANIO  370 

IF(ND.GT.l.AND.ND.LE.10)GO  TO  G  ANIO  372 

URITE(6,104)ERROR(5).I  ANIO  374 

CALL  QUIT  ANIO  37S 

C  ANIO  378 

C   ANIO  380 

C   PRINT  HEADINGS  FOR  ANISOTROPIC  STRENGTH  DATA  ANIO  382 

c   mlQ   364 

C  ANIO  38B 

G  URITECG.112)  ANIO  388 

112  FORMATC//.  ANIO  390 

1 10X. *DIRECTION*. 4X, COUNTERCLOCKWISE*, 5X. ^COHESION*, 5X, *FRICTION*/ANIO   392 

112X,*RANGE*.7X.*DIRECTI0N   LIMIT*, 4X,  INTERCEPT*.  7X, WANGLE*./.  ANIO   394 

113X.*N0.*,12X,*(DEG)*.12X.*(PSF)*.9X.*(DEG)*./)  ANIO   396 

C  ANIO   398 
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C   READ  ANISOTROPIC  STRENGTH  DATA  AMID  402 

C  ANIO  40G 

DO  2  J=1,ND  ANIO  408 

CALL  READER(DIREC(I.J),IDUtinY,  1)  ANIO  410 

CALL  READER(CSAd.J).IDUMMY.l)  ANIO  412 

CALL  READER(PHIA(I.J),IDUMMV,1)  ANIO  414 

2  CONTINUE  ANIO  416_ 

C  ANIO  420 

C   CHECK  INCREASING  ORDER  OF  COUNTERCLOCKWISE  ANIO  424 

C   LIMIT  OF  EACH  DIRECTION  RANGE  ANIO  42G 

C  ANIC  430 

DO  13  J=2.ND  ANIO  432 

IF(DIREC(I.J-l).LE.DIRECCI,J))GO  TO  13  ANIO  434  - 

URITE(6.104)ERROR(G).I  ANIO  43G 

IEXIT=1  ANIO  438 

GO  TO  11  •  ANID  440 

13  CONTINUE  ANIO  442 

C  Ah  10  444 

C   CHECK  IF  ALL  THE  REQUIRED  DIRECTIONS  ARE  DEFINED  ANIO  448 

C      fihIQ   450 

C  ANIO  452 

11  IF(DIREC(I,ND).GE.90.)CO  TO  7  ANIO  454  - 
URITE(6.10<1)ERROR(7).I  ANIO  45G 
IEXIT=1  ANIO  458 

C  ANIO  4G0 

C   ANIO  4G2 

C   PRINT  ANISOTROPIC  STRENGTH  DATA  ANIO  4G4 

c   mlQ   4EB 

C  ANIO  468 

7  URITE(6.111HJ.DIRECn.J).CSA(I,J),PHIA(I.J),J=l.ND)  ANIO  4G9  - 

111  FORriAT(10X,I5.9X.F9.1.9X.F9.1.4XtF9.1)  ANIO  470 

DO  12  J=1.ND  ANIO  471  - 

DIREC(I,J)=DIREC(I,J)«RD  ANIO  472  - 

12  CONTINUE  ANIO  473  - 
9  CONTINUE  ANIO  474 

ISTR=1  AhIO  47G 

RETURN  GHIO  478 

END  ANIO  480 
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SUBROUTINE  WATER 


UATP 
-UATP 
-UATP 


C 

C 

c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


SUBROUTINE  HATER 


UATR    8 

UATR   10 

UATP   12 


FUNCTIONS  - 

READS 'THE  NUMBER  OF  PIEZOMETRIC  SURFACES  DEFINED. 

IF  EQUAL  TO  ZERO,  EXISTING  UATER  SURFACE  DATA  IS 
SUPPRESSED  OR  REACTIUATED  IF  PREUIOUSLY  SUPPRESSED. 

IF  GREATER  THAN  ZERO.  READS.  CHECKS.  STORES.  AND  PRINTS  THE 
UATER  SURFACE  DATA. 


UATP 
UATP 
UATP 

UmTP  20 

UATP  22 

UATP  24 

UATR  26 

UATR  23 

UATP  30 

UATR  32 

UATP  34 

-UATP  36 


14 
LE 
18 


DEF 


UATR  38 

UATR  40 

UATP  42 

DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER  UHENUATR  44 

AN  INTEGER  IS  TO  BE  READ.  UATR  46 

UATP  43 

UARIABLE  REPRESENTING  CURRENT  ERROR  CODE.  UATR  50 

UATP  52 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.  UA"^  54 

UATP  56 

DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER  UHENUATR  58 

A  REAL  NUMBER  IS  TO  BE  READ.  UATR  60 

UATP  62 

CONTROL  CODE  UHICH  TERMINATES  EXECUTION.  IF  DATA  IS  UATP  64 
INCONSISTANT  UITH  THE  REQUIREMENTS  OF  THE  PROGRAM.    UATP 

UATR 
CONTROL  CODE  UHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  UATR 
HANDLING  THE  UATER  SURFACE  SPECIFIED  BY  SUBROUTINE  UATR 
UATER. 


INITIONS 
DUMMY 

ERROR 

I 

I DUMMY 

IEXIT 

IUAT 

J 

J2 

N 

NPI 

NPIEZ 

NPZ 

QUIT 

READER 

TOL 
UUAT 

XPIEZ 


INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

UALUE  OF  J  ROUNDED  DOUN  TO  AN  EUEN  INTEGER. 

UARIABLE  USED  TO  TEMPORARY  STORE  AN  ARPAY  UARIABLE 
FOR  A  DO  STATEMENT. 

NUMBER  READ  AS  NUMBER  OF  PIEZOMETRIC  SURFACES 
DEFINED. 

NUMBER  OF  POINTS  DEFINING  THE  UATER  SURFACE. 

NUMBER  OF  PIEZOMETRIC  SURFACES  DEFINED. 

SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE. 
TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF 
PROGRAM. 

SUBROUTINE  THAT  READS  INTEGER  OR  PEAL  DATA  IN  FREE 
FORM  FORMAT. 

TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  ROUNDING 

UNITUEIGHT  OF  UATER.  IF  0.  IS  SPECIFIED  G2.4  PCF 
IS  ASSUMED. 

ARRAY  CONTAINING  X  COORDINATES  OF  POINTS  DEFINING 
UATER  SURFACE. 


66 
68 

?:< 

72 
UATR  74 
UATR  76 
N0U7EEBQ 
N0U7EEB0 
N0U7GEB0 
N0U76EB0 
AUG76EB0 
AUG7GEB0 
AUG76EB0 
UATP  78 
UATP  80 
UATR  82 
UATP  84 
UATR  86 
JUL76EB0 
JUL76EE0 
UATR  88 
HE  UATR  80 
UATR  92 
UATR  84 
UATR  96 
UATR  98 
UATR  100 
UATR  102 
UATR  104 
JUL76EB0 
JUL7SEB0 
JUL76EB0 
UATR  106 
UATR  108 
UATR  110 


UV) 


c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 

c 
c 

c 
c 

c 


YPIE2 


ARRAY  CONTAINING  Y  COORDINATES  OF  POINTS  DEFINING 
UATER  SURFACE. 


C 

c 
c 
c 
c 

C 


COMMON  /BLKOl/IANGL. IBLK. IEXIT. ICIRC. ILIMIT, IPLOT, IREAD. ISEARC. 
1        IBLK2.  ISOIL't  ISTR.ISURC.ISURF.IWAT.RD.TOL 
COMMON  /BLK03/UWAT.NPZ.NPIEZC10).XPIEZ(10.40).YPIEZC10.40) 

DIMENSION  ERR0RC5) 

DATA  ERROR>'4HWA01.4HWA02.4HWA03,4HWA04,4HUA05/ 


READ  NUMBER  OF  PIEZOMETRIC  SURFACES  TO  BE  SPECIFIED 


CALL  READER C DUMMY, NPI.O) 


CHECK  FOR  WATER  SURFACE  DATA  SUPPRESSION 


IF(NPI.NE.0)GO  TO  2 
IF(IUAT.EQ.O)  GO  TO  10 
IWAT=0 

URITECG, 107) 
107  FORMATC///. 

110X.*WATER  SURFACE  DATA  HAS  BEEN  SUPPRESSED*) 
RETURN 


CHECK  IF  DATA  DEFINED  BEFORE 
SUPPRESSING  OR  REACTIUATING  IT 


10    IFCNPZ.CT.OGO  TO   12 
WRITECG. lOl)ERROR(l) 
101   FORMATU.10X.14H»*»»     ERROR  -   .A4.6H     ••••,•) 
IEXIT=1 


C 
C 

c 
c 
c 


REACT I U ATE  SUPPRESSED  DATA 


12  IUAT=1 

WRITECG. 108) 
108  FORMAT C//V. 

11  OX, ^SUPPRESSED  WATER  SURFACE  DATA  HAS  BEEN  REACTIUATED*) 
RETURN 
2  NPZ=NPI 

WRITECG. 103)NPZ 
103  FORMAT C1H1.9X. 12. 

1  *   PIEZOMETRIC  SURFACECS)  HAUE  BEEN  SPECIFIED*) 


C 

c 
c 
c 
c 


READ  UNITWEIGHT  OF  WATER 


CALL  READERCUWAT.IDUMMY.l) 
IFCUWAT.EQ.O.)  UWAT=  G2.4 
WRITECG. 10G)UWAT 
10G  FORMATC//.10X.*UNITWEIGHT  OF  UATER  =*.F7.2) 


WATR  112 
WATP  114 
WATP  ne 
-WATP  118 
-WATR  120 
UATR  122 
WATR  124 
UATR  126 
WATR  12B 
WATR  130 
WATR  132 
WATR  134 
WATR  13G 
WATR  138 
WATR  140 
WATR  142 
WATP  144 
WATR  14E 
WATR  148 
WATR  150 
UATR  152 
WATR  15* 
WATR  15E 
WATP  158 
WATR  1G0 
WATR  1G2 
WATP  164 
WATR  1ES 
WATP  1GB 
WATP  170 
WATP  172 
WATR  174 
WATP  176 
WATR  178 
WATP  180 
WATR  132 
WATR  184 
WATR  186 
WATR  188 
WATR  190 
WATR  192 
WATR  194 
WATP  196 
WATP  198 
WATR  200 
WATR  202 
WATR  204 
WATR  206 
WATR  208 
WATR  2C9 
WATR  210 
WATR  211 
■  WATR  212 
WATR  213 
WATR  214 
WATR  215 
WATR  216 
WATR  217 
WATR  218 
WATR  219 
WATR  220 
WATR  221 
WATR  222 


Ii2?0 


C 

c 
c 
c 


PRINT  NUMBER  OF  POINTS  DEFINING  THE  HATER  SURFACE 


DO  3  J=1.NPZ 

CALL  READER(DUMMY.NPIEZU).O) 

J2=r J/2)»2 

IFU.NE.1.AND.J2.NE.J)  URITEtG.109) 
109  FORMAT(lHl) 

URITE(E.104)J.NPIEZ(J) 
104  FORMAT (///.l OX. *PIEZOMETRIC  SURFACE  NO.*. 13.*  SPECIFIED  BY*, 13. 
1   *  COORDINATE  POINTS*) 


C 

c 
c 
c 
c 


c 

c 

c 
c 
c 


c 
c 
c 
c 
c 


CHECK  WATER  SURFACE  STORAGE  LIMIT 


IF(NPIEZ(J).LE.40)GO  TO  11 
URITE(G.101)ERR0R(2) 
CALL  QUIT 


CHECK  IF  DATA  IS  SUFFICIENT 


11  IF(NPIEZ(J).GT.1)G0  TO  13 
URITE(G.101)ERROR(3) 
IEXIT=1 


PRINT  HATER  SURFACE  DATA  HEADINGS 


13  URITE(G.llO) 
110  FORMAT (//. 

1    1 2X, *POINT*. GX. *X-UATER*. 5X. *Y-UATER*. /. 
1    13X.*N0.*.9X.*(FT)*.8X.*(FT)*./') 
N=NPIEZ(J) 
DO  8  1=1. N 


C 

c 
c 
c 
c 


c 
c 
c 
c 
c 


READ  WATER  SURFACE  DATA 


CALL  READERCXPIEZ(J.I).IDUMMY. 1) 
CALL  READER(YPIEZ(J.I).IDUMMY,1) 


CHECK  FOR  1ST  QUADRANT  LOCATION 


IF(XPIEZ(J,I).GT.-TOL)GO  TO  7 
GO  TO  9 
7  IF(YPIEZU.I).GT.-TOL)GO  TO  G 
9  URITECG. 102)ERRORC4).J.I 
102  FDRMAT(/, 10X. ]4H»*«»  ERROR  -  .A4.GH  ••»«,5X, 12HSURFACE  NO. 
1  6H  POINT. 13./) 
IEXIT=1 


12. 


UATP 

223 

UATP 

224 

UATR 

225 

UATR 

22B 

UATR 

227 

UATR 

228 

UATR 

223 

UATP 

230 

UATR 

231 

UATR 

232 

UATR 

233 

UATR 

234 

UATR 

235 

UATR 

23G 

UATR 

237 

UATR 

233 

UATR 

239 

UATR 

240 

UATR 

242 

UATR 

244 

UATR 

24G 

UATR 

243 

UATR 

250 

UATR 

252 

UATR 

254 

UATR 

25G 

UATR 

258 

UATP 

2G0 

UATR 

2G2 

UATP 

2E4 

UATR 

2GG 

UATR 

2E8 

UATP 

270 

UATP 

272 

UATR 

274 

UATR 

27G 

UATR 

278 

UATR 

279 

UATP 

280 

UATR 

282 

UATP 

284 

UATR 

28G 

UATR 

288 

UATP 

290 

UATR 

292 

UATR 

294 

UATR 

29G 

UATR 

298 

UATR 

300 

UATP 

302 

UATR 

304 

U'ATR 

30G 

UATR 

308 

UATR 

310 

UATP 

312 

UATR 

314 

UATR 

315 

UATR 

31G 

UATR 

318 

1421 


C        WfiTP   320 

C    CHECK  LEFT  -  RIGHT  ORDER  WfiTR  322 

C   WATP  324 

C  WfiTP  32G 

G  IF(I.EQ.l)CO  TO  8  WfiTR  328 

IF(XPIEZ(J.I-l).LT.XPIEZ(J»I))GO  TO  8  WfiTR  330 

URITE(E.102)ERROR(5).J.I  WfiTR  332 

IEXIT=1  WATP  334 

8  CONTINUE  WfiTR  33E 

C  ■  WfiTR  338 

C   WATR  340 

C   PRINT  FREE  WATER  SURFACE  DATA  WATR  342 

£  uftTR  34^ 

C  WATR  34B 

URITE(6.105)(I,XPIEZ(J,I),YPIEZCJ,I).I=1.N)  WATP  348 

105  F0RMAT(12X,I3.2X,2F12.2)  WATR  350 

3  CONTINUE  WATR  351 

IWAT=1  WATR  352 

RETURN  WATR  354 

END  WATR  35G 


h22 


SUBROUTINE  LOADS 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTIONS  - 


LOAD 

SUBROUTINE  LOADS  LOAD 
LOAD 

LOAD 
LOAD 
LOAD 

READS  THE  NUMBER  OF  SURCHARGE  BOUNDARY  LOADS.  LOAD 

LOAD 

IF  EQUAL  TO  ZERO.  EXISTING  SURCHARGE  DATA  IS  SUPPRESSED  OR     LOAD 
REACTIUATED  IF  PREUIOUSLY  SUPPRESSED.  LOAD 

LOAD 

IF  GREATER  THAN  ZERO,  READS,  CHECKS,  STORES,  AND  PRINTS        LOAD 
SURCHARGE  BOUNDARY  LOAD  DATA.  LOAD 

LOAD 

LOAD 
LOAD 
LOAD 


DEFINITIONS  - 


BNDS 


DELTA 


DUMMY 


ERROR 


I DUMMY 


IEXIT 


INTS 


INTSC2 


I5URC 


JS 


JTN 


LOAD 


AN  ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTSLOAD 

DEFINING  THE  GROUND  SURFACE  AND  SUBSURFACE 

BOUNDARIES. 


ARRAY  CONTAINING  UALUES  OF  LOAD  DIRECTION  FOR  EACH 
EOUNDARY  LOAD  SPECIFIED. 

DUMMV  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER 
AN  INTEGER  IS  TO  BE  READ. 

UARIABLE  REPRESENTING  CURRENT  ERROR  CODE. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 


LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 

UHENLOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 

UHENLOAD 
LOAD 


CONTROL  CODE 
INCONSISTANT 

CONTROL  CODE 
HAS  OCCURRED 


UHICH  TERMINATES  EXECUTION, 
WITH  THE  REQUIREMENTS  OF  THE 


IF  DATA 
PROGRAM 


IS 


DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER 
A  REAL  NUMEER  IS  TO  BE  READ. 

LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
PORTIONS  OF  THE  PROGRAM  LOAD 
SPECIFIED  BY  SUBROUTINE  LOAD 


WHICH  SIGNALS  WHETHER  AN  INTERSECTION 
OR  NOT. 


ENTRY  POINT  INTO  SUBROUTINE  INTSCT  WHICH  DETERMINES 
WHETHER  OR  NOT  A  LINE  SEGMENT  AND  A  UERTICAL  LINE 
INTERSECT  AND  CALCULATES  THE  COORDINATES  OF  THE 
INTERSECTION. 


CONTROL  CODE  WHICH  ACTIUATES 
HANDLING  THE  SURCHARGE  LOADS 
LOADS. 


INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

SUBSCRIPT  OF  LAST  GROUND  SURFACE  BOUNDARY  USED 
DETERMINE  THE  Y  COORDINATE  OF  THE  BEGINNING  OR 
A  SURCHARGE  BOUNDARY  LOAD. 


TO 
END 


UARIABLE  USED  TO  TEMPORARY  STORE  THE  UALUE  OF  AN 
INDEX  UARIABLE  USED  FOR  ARRAY  SUBSCRIPTING. 

ARRAY  CONTAINING  UALUES  OF  UNIFORM  LOAD  INTENSITY 
FOR  EACH  BOUNDARY  LOAD  SPECIFIED. 


LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
OFLOAD 
LOAD 
LOAD 
JUL7GEB0 
JUL76EB0 
JUL7EEE0 
LGAD  120 
LOAD  122 
LOAD  124 


2 

B 

8 
10 

12 
14 
16 
18 
20 
25 
24 
2B 
28 
30 
32 
34 
36 
36 
4  0 
42 
44 
46 
46 
50 
52 
54 
55 
56 
GO 
62 
6-3 
BE 
68 
70 
72 
7h 
76 
76 
60 
82 
84 
65 
88 
90 
32 
9^ 
95 
98 
100 
102 
104 
10G 
108 
110 
112 
114 
116 
118 


h'.'i 


c 
c 
c 

c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 

c 
c 

c 

c 
c 


c 

c 
c 
c 
c 
c 


NSUC 
NSURC 
(STOP 
QUIT 

RD 
READER 

SURC 

TOL 
VSURC 


NUMBER  READ  AS  NUMBER  OF  BOUNDARY  LOADS  SPECIFIED. 

NUMBER  OF  BOUNDARY  LOADS  SPECIFIED. 

NUMEER  OF  GROUND  SURFACE  BOUNDARIES. 

SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE. 
TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE 
PROGRAM. 

FACTOR  FOR  CONUERSION  OF  DEGREES  TO  RADIANS. 

SUBROUTINE  THAT  READS  INTEGER  OR  REAL  DATA  IN  FREE 
FORM  FORMAT. 

ARRAY  CONTAINING  X  COORDINATES  OF  THE  END  POINTS 
DEFINING  THE  EXTENT  OF  LOADING. 

TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  ROUNDING. 

ARRAY  CONTAINING  THE  CALCULATED  Y  COORDINATES  OF  THE 
ENDS  OF  THE  BOUNDARY  LOADS  ON  THE  GROUND  SURFACE. 


COMMON  /BLK01/IANGL. IBLK. IEXIT. ICIRC, ILIMIT. IPLOT, IREAD. ISEARC. 
1        IBLK2, ISOIL. ISTR, ISURC. ISURF. IWAT.RD. TOL 

COMMON  /BLK02/BNDS(100.4),C(20),GAMMA(20).GSAT(20). ITPCIOO ) . NEND. 
1  NSOIL.NTOP.PHI(20),RU(20).CU(20).NP(20) 

COMMON  /BLK04/DELTA(10),LOAD(10),NSURC.SURC(10,2).YSURC(10.2) 

DIMENSION  ERR0R(5) 

DATA  ERROR/4HLD0 1 , 4HLD02. 4HLD03. 4HLD04, 4HLD05/ 

REAL  LOAD 


READ  NUMBER  OF  SURCHARGE  BOUNDARY  LOADS 


CALL  READER (DUMMY, NSUC. 0) 


CHECK  FOR  SURCHARGE  DATA  SUPPRESSION 


IF(NSUC.NE.0)GO  TO  9 
IF(ISURC.EQ.0)GO  TO  10 
ISURC=0 
URITE(G,108) 
108  FORMATC///. 

110X.*SURCHARGE  BOUNDARY  LOAD  DATA  HAS  BEEN  SUPPRESSED*) 
RETURN 


CHECK  IF  DATA  DEFINED  BEFORE 
SUPPRESSING  OR  REACTIUATING  IT 


10   IF(NSURC.GT.O)GO  TO   12 
WRITE(E.lOl)ERRORCl) 
101    FORMATS.  10X,  14H»«««     ERROR 
IEXIT=1 


.A4.BH  ♦••«,/) 


LOAD  125 
LOAD  128 
LOAD  130 
LOAD  132 
LOAD  134 
LOAD  13G 
LOAD  138 
LOAD  140 
LOAD  142 
LOAD  144 
LOAD  146 
LOAD  146 
LOAD  150 
LOAD  152 
LOAD  154 
LOAD  15B 
LOAD  158 
LOAD  1B0 
LOAD  1B2 
LOAD  1E4 
LOAD  1GG 
LOAD  168 
LOAD  iro 
-LOAD  172 
-LOAD  174 
LOAD  176 
LOAD  178 
LOAD  180 
LOAD  182 
LOAD  184 
LOAD  186 
LOAD  188 
LOAD  ISO 
LOAD  192 
LOAD  194 
LOAD  13G 
LOAD  198 
LOAD  200 
LOAD  202 
LOAD  204 
LOAD  20E 
LOAD  208 
LOAD  210 
LOAD  212 
LOAD  214 
LOAD  216 
LOAD  218 
LOAD  220 
LOAD  222 
LOAD  224 
LOAD  22G 
LOAD  228 
LOAD  230 
LOAD  232 
LOAD  234 
LOAD  236 
LOAD  238 
LOAD  240 
LOAD  242 
LOAD  244 
LOAD  246 
LOAD  248 
LOAD  250 


U2k 


c 

c 
c 
c 


REACTIUATE  SUPPRESSED  DATA 


C 

C 

c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


12  ISURC=1 

URITEtG. 109) 
103  FORMAT (//•, 

110X,*SUPPRESSED  BOUMDARY  LOAD  DATA  HAS  BEEN  REACTIUATED*  ) 
RETURN 
9  NSURC=NSUC 


PRINT  NUMBER  OF  SURCHARGE  BOUNDARV  LOADS 


C 

c 
c 
c 
c 


c 
c 
c 
c 
c 


URITE(6.103)NSURC 
103  FORMATUH1, 

1    9X, ^BOUNDARY  LOAD(S)*, //, 
1   13X,I2,*  LOAD(S)  SPECIFIED^) 


CHECK  BOUNDARY  LOAD  STORAGE  LIMIT 


IF(NSURC.LE.10)GO  TO  11 
WRITE(6,101)ERROR(2) 
CALL  QUIT 


PRINT  LOAD  DATA  HEADINGS 


11  URITE(B.IOE) 
102  FORMATS/. 

1   1  OX,  *LOAD*.  8X,  *X-LEFT*.  SX.  *X-RIGHT*.  5X.  *  INTENSITY*,  5X, 
1   ^DEFLECTION*,/, 

1    llX.*N0.*,9X.*(FT)*.9X.*(FT)*,6X.*(LB/SaFT)*,7X,*(DEG)*,//) 
DO  8  I=1,NSURC 


READ  SURCHARGE  BOUNDARY  LOADING  DATA 


CALL  READER(SURC(I,1),IDUMMY,1) 
CALL  READER(SURC(I.2),IDUMMY,1) 
CALL  READER(LOAD(I),IDUMMY,l) 
CALL  READER(DELTA(I),IDUMMY, 1) 


CHECK  FOR  1ST  QUADRANT  LOCATION 


C 
C 
C 
C 
C 


IF(SURC(I,l).GT.-TOL)GO  TO  5 
GO  TO  4 

5  IF(SURC(I,2).GT.-T0L)G0  TO  3 
4  URITE(6.105)ERROR(3),I 
105  FORMAT(/, 10X, 14H«««»  ERROR  -  ,A4,GH 
IEXIT=1 


►.5X.4HL0AD.I3,/) 


CHECK  FOR  LEFT-RIGHT  ORDER  OF  BOUNDARY  LOAD  END  POINTS 


3  IF(SURC(I,2).GT.SURC(I,1))G0  TO  14 
WRITE(6.105)ERROR(4),I 
IEXIT=1 


LOAD 

255 

LOAD 

254 

LOAD 

25G 

LOAD 

258 

LOAD 

2E0 

LOAD 

?E2 

LOAD 

2E4 

LOAD 

?GG 

LOAD 

2G6 

LOHD 

270 

LOAD 

272 

LOAD 

274 

LOAD 

27E 

LOAD 

278 

LOAD 

280 

LGAD 

282 

LOAD 

284 

LOAD 

2BE 

LOAD 

288 

LOAD 

290 

LOAD 

232 

LOAD 

294 

LOAD 

29E 

LOAD 

298 

LOAD 

300 

LOAD 

302 

LOAD 

204 

LOAD 

30E 

LOAD 

3oe 

LOAD 

310 

LOAD 

312 

LOAD 

314 

LOAD 

31S 

LOAD 

318 

LOAD 

320 

LOAD 

322 

LChD 

324 

LOAD 

32E 

LOAD 

328 

LOAD 

330 

LOAD 

332 

LOAD 

334 

LOAD 

33E 

LOAD 

333 

LOAD 

340 

LOAD 

342 

LOAD 

3^4 

LOAD 

34E 

LOAD 

348 

LOAD 

350 

LOAD 

352 

LOAD 

354 

LOAD 

35B 

LOAD 

358 

LOAD 

3G0 

LOAD 

3B2 

LOAD 

3G4 

LOAD 

3SS 

LOAD 

3E8 

LOAD 

370 

LOAD 

372 

LOAD 

374 

LOAD  : 

37E 

LGAD  : 

378 

LOAD  : 

330 

load  : 

382 

LOAD  334 

c 
c 
c 

c 


CHECK  LEFT-RIGHT  ORDER  OF  BOUNDARY  LOADS  AMD  LOAD  OUERLAP 


14   IFCI.EQ.DGO  TO  8 

IF(SURC(I-1.2).LE.SURC(I.1))G0  TO  8 
URITE(G.105)ERROR(5).I 
IEXIT=1 
8  CONTINUE 


C 

c 
c 
c 
c 


PRINT  LOAD  DATA 

URITE(G.104HI.SURC(I.1).SURC(I.2),LOAD(I),DELTA(I),I=1.NSUPC) 
104  F0RMAT(11X.I2.2X,2F13.2.2F13.1) 

URITE(G.IOG) 
10G  F0Rf1AT(//.9X.*N0TE  -  INTENSITY  IS  SPECIFIED  AS  A  UNIFORMLY*, 
1   *   DISTRIBUTED*. s> 
1   1GX,*F0RCE  ACTING  ON  A  HORIZONTALLY  PROJECTED  SURFACE.*) 


C 

C 
C 

c 
c 


CALCULATE  Y  COORDINATES  OF  BOUNDARY  LOADS 


JS=1 

DO  15  I=1.NSURC 
DO  1G  J=JS,NTOP 
JTN=J 

CALL   INTSC2(BNDS(J,1),BNDS(J.2).BNDS(J.3).BNDS(J.4),0.,0..0..0., 
1        SURC(I.1).YSURC(I.1).INTS) 
IFUNTS.EQ.DGO  TO   17 
1G  CONTINUE 

17  JS=JTN 

DO  18  J=JS.NTOP 
JTN=J 

CALL    INTSC2(BNDS(J.1).BNDS(J,2).BNDS(J.3).BNDS(J.4).0..0.,0.,0.. 
1        SURC(I.2).YSURC(I.2).INTS) 
IFCINTS.EQ.DGO   TO   19 

18  CONTINUE 

19  JS=JTN 
DELTA(I)=DELTA(I)»RD 

15  CONTINUE 
ISURC=1 
RETURN 
END 


J 

t:5r; 

LOAD 

38S 

LOAD 

3B8 

LOAD 

330 

LOAD 

392 

LOAD 

334 

LOAD 

33E 

LOAD 

333 

LOAD 

400 

LOAD 

402 

LOAD 

404 

LOAD 

40E 

LOAD 

40B 

LOAD 

410 

LOAD 

412 

LOAD 

4i4 

LOAD 

41G 

LOAD 

418 

LOAD 

450 

LOAD 

422 

LOAD 

424 

LOAD 

425 

LOAD 

428 

LOAD 

430 

LOAD 

432 

LOAD 

434 

LOAD 

435 

LOAD 

438 

LOAD 

440 

LOAD 

441 

LOAD 

442 

LOAD 

444 

LOAD 

44E 

LOAD 

448 

LOAD 

450 

LOAD 

452 

LOAD 

453 

LOAD 

454 

LOAD 

455 

LOAD 

458 

LOAD 

4E0 

LOAD 

452 

LOAD 

464 

LOAD 

4EB 

LOAD 

4B8 

LOAD 

470 

LOAD 

472 

^26 


SUBROUTINE  EQUAKE 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 

c 
c 
c 
c 


SUBROUTINE  EQUAKE 


FUNCTIONS  - 


READS  AND  PRINTS  THE  PSEUDO-STATIC  EARTHQUAKE  COEFFI 
AND  CAUITATION  PRESSURE. 


DEFINITIONS 
CAUT 
I DUMMY 

KCOEF 
READER 

UKCOEF 


CAUITATION  PRESSURE. 

DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE 
A  REAL  NUMBER  IS  TO  BE  READ. 

HORIZONTAL  EARTHQUAKE  COEFFICIENT. 


SUBROUTINE  THAT  READS  INTEGER  OR  REAL  DATA  IN  FREE 
FORM  FORMAT. 

UERTICAL  EARTHQUAKE  COEFFICIENT. 


COMMON  /BLK02/BNDS(100.4),C(20),GAMMA(20).GSAT(20). ITP( 10CH.NBND. 
1  NSOIL.NTOP.PHI(20).RU(20).CU(20).NP(20) 

COMMON  /BLK11/CAUT, KCOEF,  UKCOEF 
REAL  KCOEF 


READ  AND  PRINT  EARTHQUAKE  COEFFICIENTS 


CALL  READER(KCOEF.IDUMMY.l) 

CALL  READER(UKCOEF.IDUMMY.l) 

URITE(G.102)KCOEF. UKCOEF 
102  FORMAT (///, 

110X,*A  HORIZONTAL  EARTHQUAKE  LOADING  COEFFICIENT*./, 
110X,*OF*»F5.3.*  HAS  BEEN  ASSIGNED*.//. 
110X.*A  UERTICAL  EARTHQUAKE  LOADING  COEFFICIENT*./. 
110X,*0F*,F5.3.*  HAS  BEEN  ASSIGNED*) 


READ  AND  PRINT  CAUITATION  PRESSURE 


CALL  READER ( CAUT , I DUMMY. 1 ) 
URITE(6.101)CAUT 
101  FORMATC/, 

110X,*CAUITATION  PRESSURE  =*.F7.1.*  PSF*) 
RETURN 
END 


EQKE  2 

EGKE  4 

EQKE  G 

EQKE  B 

EQKE  10 

EQKE  12 

EQKE  14 
EQKE  IB 
EQKE  18 
CIENTS  EQKE  20 
EQKE  22 
EQKE  24 
EQKE  26 

EQKE  28 
EQKE  30 
EQKE  32 
EQKE  34 
EQKE  3G 
READER  UHENEQKE  38 
EQKE  40 
EQKE  42 
EQKE  44 
EQKE  4G 
EQKE  48 
EGKE  50 
EQKE  52 
EQKE  54 
EQKE  5E 
-EGKE  58 
-EQKE  GO 
EQKE  b2 
EGKE  G4 
EOKE  EG 
EGKE  G8 
EQKE  70 
EQKE  72 
EQKE  74 
EQKE  7G 
EQKE  78 
EQKE  SO 
EQKE  82 
EQKE  84 
EQKE  86 
EQKE  88 
EGKE  90 
EGKE  92 
EQKE  94 
EQKE  96 
EQKE  98 
EQKE  100 
EQKE  102 
EOKE  104 
EQKE  106 
EQKE  108 
EGKE  110 
EGKE  112 
EQKE  114 
EQKE  116 
EGKE  118 


UM 


c 

SUBROUTINE  LIMITS 

LIMT 
-LIMT 

s 

4 

c 
c 
c 

SUBROUTINE  LIMITS 

-LIMT 

LIMT 

-LIMT 

G 

8 

10 

c 
c 

-LIMT 
LIMT 

12 

14 

c 

FUNCTIONS  - 

LIMT 

IB 

c 

LIMT 

IB 

c 

READS  THE 

NUMEER  OF  SURFACE  GENERATION  LIMIT  BOUNDARIES. 

LIMT 

20 

c 

LIMT 

22 

c 

IF  EQUAL 

TO  ZERO,  EXISTING  LIMIT  DATA  IS  SUPPRESSED  OP 

LIMT 

24 

c 

REACTIUATED  IF  PREUIOUSLY  SUPPRESSED. 

LIMT 

2G 

c 

LIMT 

?P 

c 

IF  GREATER  THAN  ZERO.  READS.  CHECKS.  STORES.  AND  PRINTS  LIMIT 

LIMT 

30 

c 

DATA. 

LIMT 

32 

c 
c 
c 

LIMT 

-LIMT 

LIMT 

34 
3G 

23 

c 

DEFINITIONS  - 

LIMT 

4C 

c 

LIMT 

4^ 

c 

DUMMY 

DUMMY  UARIAELE  USED  IN  CALL  OF  SUBROUTINE  READER  WHENltMT 

44 

c 

AN  INTEGER  IS  TO  BE  READ. 

LIMT 

4B 

c 

LIMT 

48 

c 

ERROR 

UARIABLE  REPRESENTING  CURRENT  ERROR  CODE. 

LIMT 

50 

c 

LIMT 

5? 

c 

I 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

LIMT 

54 

c 

LIMT 

5B 

c 

IDUMMY 

DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READEP  WHENLir 

55 

c 

A  REAL  NUMBER  IS  TO  BE  READ. 

LIMT 

BO 

c 

LIMT 

G2 

c 

I  EXIT 

CONTROL  CODE  WHICH  TERMINATES  EXECUTION,  IF  DATA  IS 

LIMT 

6s 

c 

INCONSISTANT  WITH  THE  REQUIREMENTS  OF  THE  PROGRAM. 

LIMT 

EG 

c 

LIMT 

6c 

c 

ILIMIT 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  FROGRAM 

LIMT 

70 

c 

AFFECTED  BY  SEARCHING  LIMITS  ESTABLISHED  BY 

LIMT 

72 

c 

SUBROUTINE  LIMITS. 

LIMT 

74 

c 

LIMT 

?G 

c 

J 

INDEX  UARIABLE  FOP  ARRAY  SUBSCRIPTING. 

LIMT 

78 

c 

LIMT 

80 

c 

LIMIT 

ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTS 

LIMT 

IZ 

c 

DEFINING  EACH  BOUNDARY  USED  TO  CONFINE  THE  EXTENT  OF 

LIMT 

B4 

c 

SEARCHING  BY  SUBROUTINE  RANDOM. 

LIMT 

SG 

c 

LIMT 

£5 

c 

NLIM 

NUMEER  READ  AS  NUMBER  OF  SURFACE  GENEPATION  LIMIT 

LIMT 

SO 

c 

BOUNDARIES  SPECIFIED. 

LIMT 

S£ 

c 

LIMT 

94 

c 

NLIMIT 

NUMBER  OF  SURFACE  GENERATION  LIMIT  BOUNDARIES. 

LIMT 

3G 

c 

LIMT 

98 

c 

NLMT 

NUMBER  OF  SURFACE  GENERATION  LIMIT  BOUNDARIES  WHICH 

LIMT 

100 

c 

DEFLECT  GENERATED  SURFACES  UPWARD. 

LIMT 

102 

c 

LIMT 

104 

c 

QUIT 

SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE. 

LIMT 

105 

c 

TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE 

LIMT 

103 

c 

PROGRAM. 

LIMT 

110 

c 

LIMT 

112 

c 

READER 

SUBROUTINE  THAT  READS  INTEGER  OR  REAL  DATA  IN  FREE 

LIMT 

114 

c 

FORM  FORMAT. 

LIMT 

HE 

c 

LIMT 

113 

c 

TOL 

TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  ROUNDING. 

LIMT 

120 

c 
c 

,.  _ ....  ., 

LIMT 
-LIMT 

122 
124 

c 
c 

-LIMT 
LIMT 

12G 
12B 

COMMON  /-BLK01/IANGL, IBLK, IEXIT, ICIRC. ILIMIT, IPLOT. IREAD. ISEARC. 

LIMT 

130 

1        IBLK2,IS0IL,ISTR,ISURC.ISURF, IWAT.RD.TOL 

LIMT 

132 

COMMON  /BLKOS/LIMITC 20. 4), NLIMIT, NLMT 

LIMT 

134 

DIMENSION  ERR0RC5) 

LIMT 

136 

l»?8 


DATA  ERROR/4HLM01 . 4HLM02. 4HLM03. 4HLM04. 4HLM05/ 
REAL  LIMIT 
C 

C   READ  NUMBER  OF  LIMIT  BOUNDARIES 
c   

C 

CALL  READERlDUMMY.NLIM.O) 

C 

c   

C   CHECK  FOR  LIMIT  DATA  SUPPRESSION 
c   

C 

IF(NLIM.NE.0)GO  TO  5 

IF(ILIMIT.EQ.0)GO  TO  G 

ILIMIT=0 

WRITECG.107) 
107   FORMATS//. 

110X.*SEARCH  LIMIT  BOUNDARY  DATA  HAS  BEEN  SUPPRESSED* ) 

RETURN 
C 
C 
C 

c 
c 
c 


c 
c 
c 
c 
c 


CHECK  IF  DATA  DEFINED  BEFORE 
SUPPRESSING  OR  REACTIUATING  IT 


G  IF(NLIMIT.GT.0)GO  TO  10 
URITE(G.104)ERROR(1) 
104  FORMATS,  10X.14H»«»»   ERROR  -  .A4.GH 
IEXIT=1 


,/) 


REACTIUATE  SUPPRESSED  DATA 


10  ILIMIT=1 
WRITEC6.10B) 
108  FORMAT (///. 

110X.*SUPPRESSED  SEARCH  LIMIT  BOUNDARY  DATA  HAS  BEEN  REACTIVATED*) 
RETURN 
5  NLIMIT=NLIM 


C 

c 
c 
c 
c 


PRINT  NUMBER  OF  LIMIT  BOUNDARIES 


WRITE(G.103)NLIMIT 
103  FORMAT ( 1H1, 3X, ^SEARCHING  ROUTINE  WILL  BE  LIMITED  TO  AN  AREA*, 
1   *  DEFINED  BY*. 13.*  BOUNDARIES*) 


C 
C 
C 
C 
C 


c 
c 
c 
c 
c 


CHECK  SEARCHING  BOUNDARY  STORAGE  LIMIT 


IF(NLIMIT.LE.20)GO  TO  11 
WRITE(6.104)ERROR(3) 
CALL  QUIT 


READ  NUMBER  OF  BOUNDARIES  THAT  DEFLECT  UPWARDS 


11    CALL   READER(DUMMY.NLMT.O) 
WRITECG.llDNLMT 
111   FORMATC10X. 

1   *OF  WHICH  THE  FIRST*, 13.*  BOUNDARIES  WILL  DEFLECT  SURFACES*. 
1   *  UPWARD*./^) 


LIMT 

138 

LIMT 

140 

LIMT 

142 

LIMT 

144 

LIMT 

14G 

LIMT 

K.S 

LIMT 

150 

LIMT 

152 

LIMT 

154 

LIMT 

15G 

LIMT 

158 

LIMT 

1G0 

LIMT 

162 

LIMT 

1G4 

LIMT 

1GE 

LIMT 

1B8 

LIMT 

170 

LIMT 

172 

LIMT 

174 

LIMT 

17E 

LIMT 

178 

LIMT 

180 

LIMT 

1B2 

LIMT 

184 

LIMT 

18E 

LIMT 

138 

LIMT 

190 

LIMT 

1S2 

LIMT 

194 

LIMT 

19G 

LIMT 

198 

LIMT 

200 

LIMT 

202 

LIMT 

204 

LIMT 

20G 

LIMT 

208 

LIMT 

210 

LIMT 

212 

LIMT 

214 

LIMT 

216 

LIMT 

218 

LIMT 

220 

LIMT 

222 

LIMT 

224 

LIMT 

22B 

LIMT 

228 

LIMT 

230 

LIMT 

232 

LIMT 

234 

LIMT 

23B 

LIMT 

23S 

LIMT 

240 

LIMT 

242 

LIMT 

244 

LIMT 

24B 

LIMT 

248 

LIMT 

250 

LIMT 

252 

LIMT 

254 

LIMT 

25B 

LIMT 

258 

LIMT 

2G0 

LIMT 

2G2 

LIMT 

264 

LIMT 

2BB 

LIMT 

2B8 

LIMT 

270 

LIMT 

272 

'i29 


C   CHECK  NUMBER  OF  UPUARD  DEFLECTING  BOUNDARIES  LIMT  276 

C  LIMT  280 

IF(NLMT.LE.NLIMIT)GO  TO  7  LIMT  282 

URITEC6.104)ERROR(2)  LIMT  284 

IEXIT=1  LIMT  286 

C  LIMT  288 

C   PRINT  HEADINGS  FOR  LIMIT  DATA  *  LIMT  282 

c    LIMT  294 

C  LIMT  29B 

7  URITECE.105)  LIMT  29E 

105  FORMATC10X. ^BOUNDARY*. 5X. *X-LEF7*. 5X. *Y-LEFT*.4X, *X-RIGHT*. 4X,  LIMT  300 
1  *Y-RIGHT*,/,  LIMT  302 
1    13X,*N0.*.8X,*(FT)*.7X.*CFT);':.7X.*(FT);*.7X,*(FT)*./)  LIMT  304 

C  LIMT  30G 

C   READ  BOUNDARY  DATA,  CHECK  FOR  1ST  QUADRANT  LIMT  310 

C   PROFILE.  AND  CHECK  BOUNDARY  END  POINT  ORDER  LIMT  312 

c   LIMT  314 

C  LIMT  316 

DO  2  I=1.NLIMIT  LIMT  318 

DO  3  J=1.4  LIMT  320 

CALL  READER(LIMIT(I.J),IDUMMY, 1)  LIMT  322 

IFCLIMIT(I.J).GT.-TOL)GO  TO  3  LIMT  324 

URITE(6.102)ERROR(4).I  LIMT  325 

102  FORMATS,  10X.14H»«»«  ERROR  -  .A4.6H  •»••,  5X.8HB0UNDAPY.  13.  f)  LIMT  32B 

IEXIT=1  LIMT  330 

3  CONTINUE  LIMT  332 

IF((LIMIT(I,1)-LIMIT(I,3)).LT.T0L)G0  TO  2  LIMT  334 

URITE(6.102)ERR0R(5).I  LIMT  33E 

IEXIT=1  LIMT  338 

2  CONTINUE  LIMT  340 

C  LIMT  342 

C   PRINT  LIMIT  BOUNDARY  DATA  LIMT  34E 

c    LIMT  348 

C  LIMT  350 

WRITE(6.10G)(I,(LIMIT(I.J).J=1.4),I=1,NLIMIT)  LIMT  352 

106  F0RMATU2X.I3.3X.4F11.2)  LIMT  354 
ILIMIT=1  LIMT  356 
RETURN  LIMT  358 
END  LIMT  360 
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SUBROUTINE  INTSCT ( XI . Yl . X2. Y2. X3. Y3. X4, Y4. X. Y. INTS ) 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


FUNCTIONS  - 


SUBROUTINE  INTSCT 


CHECKS  FOR  INTERSECTION  OF  TUO  LINE  SEGMENTS  AND  CALCULATES 
COORDINATES. 

ENTRY  INTSC2  •«•»•••••• 

CHECKS  FOR  INTERSECTION  OF  A  LINE  SEGMENT  WITH  A  UERTICAL  LI 
AND  CALCULATES  ITS  COORDINATES. 


NE 


DEFINITIONS  - 

ABS  STANDARD  FUNCTION  WHICH  DETERMINES  THE  ABSOLUTE 
UALUE  OF  A  NUMBER. 

A12  INTERCEPT  OF  LINE  THROUGH  POINTS  1  AND  2. 

A34  INTERCEPT  OF  LINE  THROUGH  POINTS  3  AND  4. 

B12  SLOPE  OF  LINE  THROUGH  POINTS  1  AND  2. 

B34  SLOPE  OF  LINE  THROUGH  POINTS  3  AND  4. 

INTS  CONTROL  CODE  WHICH  SIGNALS  WHETHER  AN  INTEPSCCTION 
HAS  OCCURRED  OR  NOT. 

TOL  TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  ROUNDING 

X  X  COORDINATE  OF  INTERSECTION  OF  TWO  LINE  SEGMENTS. 

XI  X  COORDINATE  OF  FIRST  POINT. 
X2  X  COORDINATE  OF  SECOND  POINT. 
X3  X  COORDINATE  OF  THIRD  POINT. 
X4  X  COORDINATE  OF  FOURTH  POINT. 

Y  Y  COORDINATE  OF  INTERSECTION  OF  TWO  LINE  SEGMENTS. 

Yl  Y  COORDINATE  OF  FIRST  POINT. 

Y2  Y  COORDINATE  OF  SECOND  POINT. 

Y3  Y  COORDINATE  OF  THIRD  POINT. 

Y4  Y  COORDINATE  OF  FOURTH  POINT. 


COMMON  /BLK01/IANGL. IBLK, IEXIT, ICIRC. ILIMIT. IPLOT, I"EAD. ISEARC, 
i        IBLK2, ISOIL. ISTR, ISURC. ISURF, IWAT. RD.TOL 
INTS=0 


ISCT 

1SCT 

ISCT 

-  —  ISCT 

ISCT 
ISCT 

—  ISCT 
ISCT 
ISCT 
ISCT 

ITSISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCX 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCX 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 
ISCT 


2 
4 

E 
8 
10 
12 
14 
IE 
18 
20 
22 
24 
2E 
23 
30 
32 
34 
3E 
38 
40 
42 

44 
4E 
43 
SO 
52 
54 
55 
53 
GO 
G2 
E4 
BE 
E8 

ro 

72 
74 
7B 

73 
Sr 
52 

84 

33 

33 

90 

S2 

94 

9E 

S3 

100 

102 

104 

10E 

108 

110 

112 

114 

he 

118 
120 
122 
124 
12G 
128 
130 


Uil 


C   

C   CHECK  FOR  UERTICAL  LINE  SEGMENTS 
c   

C 

IF(ABS(X1-X2).LT.T0L.AND.ABS(X3-X4).LT.T0L)RETURN 
IF(ABS(X1-X2).LT.T0L)G0  TO  5 
IF(ABS(X3-X4).LT.T0L)G0  TO  B 
C 

C  

C   CHECK  FOR  AN  INTERSECTION  OF  TUO  NON-UERTICAL  LIME  SEGMENTS 
c   

C 

B12=(Y1-Y2)/(X1-X2) 

A12=Y1-B12«X1 

B34=(Y3-Y4)/CX3-X4) 

A34=Y3-B34#X3 

IF(RES(B12-B34).LT.T0L)RETURN 

X=(A12-A34V(B34-B12) 

Y=A12+B12«X 

IF((X1-X).LT.T0L.AND.(X3-X).LT.T0L.AND.(X-X2).LT.T0L.AND.(X-X4), 
l.TOL)IMTS=l 

RETURN 
C 

C   CHECK  FOR  AN  INTERSECTION,  IF  THE  FIRST  LINE  SEGMENT  IS  UERTICAL 
c   

C 

5  X=X1 
B34=CY3-Y4)/(X3-X4) 
A34=Y3-B34»X3 
Y=A34+X«B34 
IF(((Y-Y2).LT.T0L.AND.(Yl-Y).LT.T0L).0R.(CY-Yn.LT.T0L.AND.(Y?-v 

1LT.T0L))INTS=1 

IF((X3-X).GT.TOL.OR.(X-X4).GT.TOL)INTS=0 

RETURN 

C 

C   

C   CHECK  FOR  AN  INTERSECTION,  IF  THE  SECOND  LINE  SEGMENT  IS  UERTICAL 
c   

C 

6  X=X3 
B12=(Y1-Y2V(X1-X2) 
A12=Y1-B12»X1 
Y=A12+X«B12 
IF(((Y-Y4).LT.T0L.AND.(Y3-Y).LT.T0L).0R.((Y-Y3).LT.T0L.AND.(Y4-^ 

1LT.T0L))INTS=1 
IF((X1-X).GT.TOL.OR.(X-X2).GT.TOL)INTS=0 
RETURN 


ENTRY  INTSC2 


INTS=0 

IF(ABS(X1-X2).LT.T0L)RETURN 

C 

c   

C   CHECK  FOR  AN  INTERSECTION  EETUEEN  A 
C   LINE  SEGMENT  AND  A  UERTICAL  LINE 

C 

B12=(Y1-Y2)/(X1-X2) 

A12=Y1-B12«X1 

Y=A12+X*B12 

IF(  (Xl-X)  .LT.TOL.  AND.  (X-X2)  .LT.TOLHNTS=l 

RETURN 

END 


ISCT 

132 

ISCT 

134 

ISCT 

136 

ISCT 

138 

ISCT 

140 

ISCT 

142 

ISCT 

144 

ISCT 

14G 

ISCT 

148 

ISCT 

150 

ISCT 

152 

ISCT 

154 

ISCT 

15B 

ISCT 

158 

ISCT 

1B0 

ISCT 

1G2 

ISCT 

1E4 

ISCT 

166 

ISCT 

168 

LTISCT 

170 

ISCT 

172 

ISCT 

174 

ISCT 

176 

ISCT 

178 

ISCT 

180 

ISCT 

182 

ISCT 

184 

ISCT 

186 

ISCT 

188 

ISCT 

190 

ISCT 

192 

).ISCT 

194 

ISCT 

196 

ISCT 

198 

ISCT 

200 

ISCT 

202 

ISCT 

204 

ISCT 

206 

ISCT 

208 

ISCT 

210 

ISCT 

212 

ISCT 

214 

ISCT 

216 

ISCT 

218 

).ISCT 

220 

ISCT 

222 

ISCT 

224 

ISCT 

226 

ISCT 

227 

ISCT 

228 

ISCT 

229 

ISCT 

230 

ISCT 

232 

ISCT 

234 

ISCT 

236 

ISCT 

238 

ISCT 

240 

ISCT 

242 

ISCT 

244 

ISCT 

246 

ISCT 

248 

ISCT 

250 

ISCT 

252 

ISCT 

254 

ISCT 

256 

uz: 


SUBROUTINE  SURFAC  SURF  2 

q        SUKf  4 

c    SURr  6 

C  SUBROUTINE  SURFAC                        SUPr  8 

c    SURF  10 

c    SUPF  1  2 

C  SUPF  14 

C   FUNCTIONS  -  SUPF  IB 

C  SURF  18 

C  READS,  CHECKS.  STORES.  AND  PRINTS  DATA  FOR  A  SPECIFIED  TRIAL.   SURF  20 

C  FAILURE  SURFACE.                                            SURF  22 

C  SURF  24 

c   SUPF  2G 

C  SURF  23 

C   DEFINITIONS  -  SURF  30 

C  SURF  32 

C  A         INTERCEPT  OF  LINE  DEFINING  GROUND  SURF  iCE  WHERE  IT  ISSUF"  34 

C  INTERSECTED  BY  THE  TRIAL  FAILURE  SURFACE.            SURF  3G 

C  SURF  38 

C  ABS       STANDARD  FUNCTION  UHICH  DETERMINES  THE  ABSOLUTE      SUPF  40 

C  UALUE  OF  A  NUMBER.                                 SUPF  42 

C  SUPF  44 

C  B        SLOPE  OF  LINE  DEFINING  GROUND  SURFACE  WHERE  IT  IS    SUPF  46 

C  INTERSECTED  BY  THE  TRIAL  FAILURE  SURFACE.            SURF  48 

C  SURF  50 

C  BNDS      AN  ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTSSUPF  52 

C  DEFINING  THE  GROUND  SURFACE  AND  SUBSURFACE           SURF  54 

C  BOUNDARIES.                                       SUPF  56 

C  SUPf1"  58 

C  DENOM     DENOMINATOR  OF  EXPRESSION  CHECKED  AS  A  PRECAUTION  OF  SUPr  GO 

C  BEING  ZERO.                                     SURF  G2 

C  SUPF  64 

C  DUMMY     DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER  WHENSJP'  GE 

C  AN  INTEGER  IS  TO  BE  READ.                          SUPF  ES 

C  SURF  70 

C  ERROR     UARIABLE  REPRESENTING  CURRENT  ERROR  CODE.            SURF  72 

C  SURF  74 

C  I         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               SURF  7G 

C  SUPF  78 

C  IDUMNY    DUMMY  UARIABLE  USED  IN  CALL  OF  SUBROUTINE  READER  UIHEMSURF  80 

C  A  REAL  NUMBER  IS  TO  BE  READ.                        SURF  62 

C  SURF  84 

C  IEXIT     CONTROL  CODE  UHICH  TERMINATES  EXECUTION.  IF  DATA  15   SURF  8G 

C  INCONSISTANT  WITH  THE  REQUIREMENTS  OF  THE  PROGRAM.    SUPF  88 

C  SUPF  90 

C  ISURF     CONTROL  CODE  WHICH  INDICATES  DEFINITION  OF  SPECIFIED  SURF  32 

C  TRIAL  FAILURE  SURFACE.                             SUpF  94 

C  SURF  9G 

C  J         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               SUPF  98 

C  SURF  100 

C  K         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               SUPF  102 

C  SUPF  104 

C  NSURF     NUMBER  OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE.    SUPF  10G 

C  SURF  108 

C  NTOP      NUMBER  OF  GROUND  SURFACE  BOUNDARIES.                SUPF  110 

C  SUPF  112 

C  QUIT      SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE,      SURF  114 

C  TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE  SURF  11G 

C  PROGRAM.                                          SURF  118 

C  SURF  120 

C  READER    SUBROUTINE  THAT  READS  INTEGER  OR  REAL  DATA  IN  FREE   SUPF  122 

C  FORM  FORMAT.                                    SURF  124 

C  SURF  12G 

C  SURF      ARRAY  CONTAINING  THE  X  AND  Y  COORDINATES  OF  POINTS   SURF  128 

C  DEFINING  A  TRIAL  FAILURE  SURFACE.                   SURF  130 

C  SURF  132 

C  TOL       TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  RGJNDIMG.   SURF  134 

C  SURF  13G 


1»33 


C 
C 

c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


COMMON  /BLKOl^IANGL, IBLKi IEXITi ICIPC. ILIMIT, IPLOT, IPEAD. ISEARC. 
1        IELK2, IS01L.ISTR. ISURC.I5UPF.IUflT.RD.T0L 

COMMOM  /BLK02/ENDSC100.4j.C(20).GfiMMA<20).GSATC20).ITP(100).NEND. 
1  NSOIL.NTOP.PHI(20).RU(20),CU(20).NP(20) 

COMMOM  /BLK05/N5URF. SURF (100.2) 

DIMENSION  ERROR(G) 

DATA  ERROR/4HSF01 , 4HSF02. 4HSF03,  4HSF04. 4H5F05.  4HSF0B/ 

ISURF=1 


C 

c 
c 

c 
c 

c 


READ  AND  PRINT  NUMBER  OF 
TRIAL  FAILURE  SURFACE  POINTS 


CALL  READERCDUMMY.NSURF.O) 
URITE(6.102)NSURF 
102  F0RMATC1H1. 

1    IOX, ATRIAL  FAILURE  SURFACE  SPECIFIED  BY*. 13. 
1    *  COORDINATE  POINTS*) 
C 

C   CHECK  TRIAL  FAILURE  SURFACE  STORAGE  LIMITS 
c   

C 

IF(NSURF.LE.100)GO  TO  9 

URITE(6.10E)ERROR(1) 
106  FORMAT(/,10X,14H*»««  ERROR  -  .A4.GH  •••»,/) 

CALL  QUIT 
C 
C   

c 
c 
c 


CHECK  FOR  SUFFICIENT  DATA 


9  IF(NSURF.GT.1)G0  TO  10 
URITE(G.10G)ERROR(2) 
IEXIT=1 


PRINT  HEADINGS  FOR  SURFACE  DATA 


10  URITE(B.lOl) 
101  FDRMATC//. 

1    12X. XPOINTX, GX. *X-SURFX. BX. XY-SURF*.  / 
1    13X.*N0.*,8X,*(FT)*,BX,*(FT)*./) 
DO  7    I=1,NSURF 


READ  TRIAL  FAILURE  SURFACE  DATA 


CALL  READER(SURF(I,1).IDUMMY,1) 
CALL  READER(SURF(I,2).IDUMMY.l) 


CHECK  FOP  1ST  QUADRANT  LOCATION 


DO  G  J=1.2 
IF(SURF(I,J).GT.-TOL)GO  TO  G 
URITE(6.105)ERROR(3),I 
105  FORMATS,  10X. 14H*«*«  ERROR  -  .A4.GH  •«»•. 5X.5HP0INT, 13. /) 
IEXIT=1 
GO  TO  8 
B  CONTINUE 


-SURF 

138 

-5UPF 

140 

SURF 

142 

SUPF 

144 

supf 

14G 

SUPF 

148 

SURF 

150 

SUPF 

152 

SUPF 

154 

SUPF 

15E 

SUPF 

158 

SUPF 

1E0 

SUPF 

1E2 

SUPF 

1B4 

SURF 

IBS 

SLPF 

IBB 

SUPF 

170 

SUPF 

172 

SURF 

174 

SURF 

17B 

SUPF 

178 

SUPF 

180 

5URF 

182 

SURF 

1B4 

SURF 

IBB 

SUPF 

188 

SUPF 

150 

SUPF 

152 

SUPF 

194 

SURF 

13B 

SURF 

193 

SURF 

200 

SUPF 

202 

SUPF 

204 

SUPF 

20E 

SUPF 

206 

SUPF 

210 

SuPF 

212 

SURF 

214 

SUR^ 

21B 

SUPF 

218 

SUPF 

220 

SURF 

222 

SUPF 

224 

SURF 

226 

SURF 

228 

SURF 

230 

SuRF 

232 

SURF 

234 

SURF 

23E 

SURF 

238 

SURF 

240 

SURF 

242 

SURF 

244 

SURF 

246 

SUPF 

243 

SURF 

250 

SURF 

252 

SUPF 

254 

SURF 

25S 

SURF 

25S 

SURF 

260 

SURF 

2B2 

SURF 

264 

SURF 

256 

SURF 

268 

SURF 

270 

SURF 

272 

SURF 

274 

1.314 


c      

C        CHECK    TRIAL   FAILURE   SURFACE   POINT   ORDER 
c        

C 

8    IFd.EQ.DGO   TO   7 

IF(SUPF(I.1).GT.SURF(I-1.1))G0  TO  7 

WRITEC6. 105)ERROR(4),I 

IEXIT=1 
7   CONTINUE 


C 

c 
c 
c 
c 
c 


c 
c 
c 

c 
c 
c 


c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


c 

c 
c 
c 
c 


CHECK  IF  TRIAL  FAILURE  SURFACE  ENTERS 
WITHIN  DEFINED  EXTENT  OF  GROUND  SURFACE 


IF(SURF(1,1).GT.BNDS(NT0P.3))G0  TO  4 
IF((BNDS(l.l)-SURF(l,l)).LT.TOL)GO  TO  11 
4  WRITE(6,10G)ERR0R(5) 
IEXIT=1 
GO  TO  13 


CALCULATE  THE  DOWNSLOPE  INTERSECTION  OF  THE  TRIAL 
FAILURE  SURFACE  WITH  THE  GROUND  SURFACE 


11  DO  2  I=1.NT0P 

IF(BNDS(I.3).LT.5URFC1,1»G0  TO 
DEN0M=BNDS(I,1)-BNDS(I.3) 
IF(ABS(DENOM),LT.TOL)GO  TO  13 
B=(BMDS(I.2)-BNDS(I,4))/DEN0M 
A=BNDS  r 1 , 2 ) -B«ENDS( 1 . 1) 
SURF (1,2)=A+B»SURF( 1.1) 
GO  TO  13 
2  CONTINUE 


CHECK  IF  TRIAL  FAILURE  SURFACE  EXITS 
WITHIN  DEFINED  EXTENT  OF  GROUND  SURFACE 


13  IF(SURF(NSUPF,  1)  .LT.BNDSUt  l))GO  TO  5 

IF((SURF(NSURF,1)-BNDS(NT0P.3)).LT.T0L)G0  TO  12 
5  WRITE(G,10G)ERROR(G) 
IEXIT=1 
GO  TO  14 


CALCULATE  THE  UPSLDPE  INTERSECTION  OF  THE  TRIAL 
FAILURE  SURFACE  WITH  THE  GROUND  SURFACE 


12  DO  3  K=l,NTOP 
I=NTOP-K+l 

IF(BNDS(I.l).GT.SURF(NSURF,l))GO  TO  3 
DEN0M=BNDS(I.1)-BNDS(I»3) 
IF(ABS(DENOri).LT.TOL)GO  TO  14 
B=(BNDSCI,2)-BNDS(I»4))/'DEN0M 
A=BNDS(I.2)-B»BNDS(I,1) 
SURF ( NSURF, 2 ) =A+B«SURF ( NSURF. 1 ) 
GO  TO  14 
3  CONTINUE 


PRINT  TRIAL  FPILURE  SURFACE  DATA 


14  WRITE(G,103MI.SURF(Itl),SURF(I,2),I=l,NSURF) 
103  F0RMAT(12X.I3.2X.2F12.2) 
RETURN 
END 


SUPF  27E 
SUPF  278 
SURF"  280 
SUPF  282 
SUPF  284 
SUPF  28G 
SUPF  288 
SUPF  280 
SURF  282 
SUPF  294 
SUPF  25G 
SUPF  258 
SURF  300 
SUPF  3C2 
SURF  304 
SURF  30G 
SURF  308 
SURF  310 
SURF  312 
SUPF  314 
SUPF  31S 
SUP"  318 
SURF  320 
SUPF  322 
SUPF  324 
SUPF  32G 
SURF  328 
SURF  330 
SUPF  332 
SUPF  334 
SUPF  33G 
SUPF  338 
SuPF  340 
SUPF  342 
SUPF  344 
SUPF  34G 
SUPF  343 
SURF  350 
SURF  352 
SURF  354 
SUPF  356 
SURF  358 
SURF  3B0 
SUPF  3B2 
SURF  364 
SURF  366 
SURF  358 
SURF  370 
SURF  372 
SURF  374 
SURF  376 
SURF  378 
SURF  380 
SURF  382 
SUPF  384 
SURF  386 
SURF  38B 
SURr  380 
SURF  332 
SUPF  394 
SURF  396 
SURF  388 
SURF  400 
SUPF  402 
SURF  404 
SURF  406 
SURF  408 
SURF  410 
SURF  412 
SURF  414 
SURF  416 


hy. 


SUBROUTINE  RANDOM  RAND  2 

c   RAND  4 

c   RAND  B 

C  SUBROUTINE  RANDOM                        RAND  8 

c   RAND  10 

c   RAND  12 

C  RAND  11 

C   FUNCTIONS  -  RAND  1G 

£  RAND  18 

C  READS  IN  DATA  FOR  SEARCHING  PARAMETERS  AND  STORES  THEM  IN  BLANKRAND  20 

C  COMMON.                                                    RAND  22 

C  RAND  24 

C  CHECKS  DATA  FOR  CONSISTENCY  -  STOPS  EXECUTION  IF  NOT.          RAND  2B 

C  RAND  28 

C  PRINTS  OUT  INPUT  DATA.                                      RAND  30 

C  RAND  32 

C  CALLS  SUBROUTINES  PLTN,  ENTRY  PLT4.  AND  PLOTIN  TO  PLOT  PROFILE  RAND  34 

C  AND,  IF  SPECIFIED,  THE  PIEZOMETRIC  SURFACES.  SEARCHING  LIMITS.  RAND  3B 

C  AND  BOUNDARY  LOADS.                                         RAND  38 

C  RAND  40 

C  SELECTS  INITIATION  POINTS  AND  DIRECTIONAL  LIMITATIONS  FOR  TRIALPAND  42 

C  SURFACE  PROPAGATION.                                        RAND  44 

C  RAND  46 

C  CALLS  SUBROUTINE  RANSUF  FOR  GENERATION  OF  EACH  IRREGULAR  OR    RAND  4B 

C  CIRCULAR  SURFACE.                                           RAND  50 

C  RAND  52 

C  CALLS  SUBROUTINES  BLKSUF  OR  BL0CK2  FOR  GENERATION  OF  EACH      JUL7GEE0 

C  TRIAL  FAILURE  SURFACE  OF  SLIDING  BLOCK  SHAPE.                 JUL7GEBO 

C  JUL7BEB0 

C  CALLS  SUBROUTINES  ENTRY  PLT2  AND  ENTRY  PL0TN2  TO  PLOT  EACH     RAND  54 

C  TRIAL  SURFACE  ON  PROFILE.                                    RAND  55 

C  RAND  5B 

C  CALLS  SUBROUTINE  EXECUT  FOR  CALCULATION  OF  THE  FACTOR  OF  SAFETYPAND  56 

C  FOR  EACH  TRIAL  SURFACE  GENERATED.                            RAND  BO 

C  RAND  B2 

C  ACCUMULATES  AND  PRINTS  DATA  FOR  THE  TEN  MOST  CRITICAL          RAND  G4 

C  TRIAL  SURFACES.                                             RAND  65 

C  RAND  EG 

C  CALLS  SUBROUTINE  PLOTIN  TO  REPEAT  PLOT  OF  PROFILE  AND.  IF      PAND  68 

C  SPECIFIED.  PIEZOMETRIC  SURFACES.  SEARCHING  LIMITS.  AND         RAND  70 

C  BOUNDARY  LOADS.                                             RAND  71 

C  RAND  72 

C  CALLS  SUBROUTINES  ENTRY  PLT3  AND  ENTRY  PLOTN3  TO  PLOT  THE      RAND  74 

C  TEN  MOST  CRITICAL  TRIAL  SURFACES  ON  THE  PROFILE.               RAND  76 

C  RAND  80 

c   rand  88 

C  RAND  90 

C   DEFINITIONS  -  RAND  92 

C  RAND  94 

C  A         INTERCEPT  OF  LINE  DEFINING  THE  GROUND  SURFACE  WHERE   RAND  96 

C  A  TRIAL  FAILURE  SURFACE  INITIATES.                  RAND  98 

C  RAND  100 

C  ABS       STANDARD  FUNCTION  WHICH  DETERMINES  THE  ABSOLUTE      RAND  102 

C  UALUE  OF  A  NUMBER.                                 RAND  104 

C  RAND  106 

C  ANGS1     COUNTERCLOCKWISE  DIRECTION  LIMIT.  WHICH  MAY  BE       RAND  108 

C  MODIFIED  DURING  GENERATION  OF  SURFACES  FROM  A        RAND  110 

C  PARTICULAR  INITIATION  POINT.  AT  WHICH  INITIAL  LINE   RAND  112 

C  SEGMENT  OF  A  TRIAL  FAILURE  SURFACE  MAY  PROJECT.      RAND  114 

C  RAND  116 

C  ANGS2     CLOCKWISE  DIRECTION  LIMIT,  WHICH  MAY  BE  MODIFIED     RAND  118 

C  DURING  GENERATION  OF  SURFACES  FROM  A  PARTICULAR      RAND  120 

C  INITIATION  POINT,  AT  WHICH  INITIAL  LINE  SEGMENT  OF  A  RAND  122 

C  TRIAL  FAILURE  SURFACE  MAY  PROJECT.                  RAND  124 

C  RAND  126 

C  ANG1      UNMODIFIED  COUNTERCLOCKWISE  DIRECTION  LIMIT,  FOR  ALL  RAND  128 

C  INITIATION  FOINTS.  AT  WHICH  INITIAL  LINE  SEGMENT  OF  ARAND  130 

C  TRIAL  FAILURE  SURFACE  MAY  PROJECT.                  RAND  132 
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ANG2 

ATAN 

B 

BGRID 
BLK5UF 

BL0CK2 

BNDS 

BPT 

DENOM 

DUMMY 

END 

EPT 

ERROR 
EXECUT 

FLOAT 

FRTYFU 

FS 

FSS 

I 
IANGL 

IBLK 

IBLK2 

I  CIRC 


UNMODIFIED  CLOCKWISE  DIRECTION  LIMIT.  FOP  MIL 
INITIATION  POINTS.  AT  14HICH  INITIAL  LINL  SI  I'.Mf  NT  111" 
TRIAL  FAILURE  SURFACE  MAS'  PROJECT. 


STANDARD 
NUMBER. 


FUNCTION  IHAT  CALCULATES  THE  ARCTANGENT  Of 


SLOPE  OF  LINE  DEFINING  THE  GROUND  SURFACE  WHERE  A 
TRIAL  FAILURE  SURFACE  INITIATES. 

SLOPE  OF  A  SLIDING  BLOCK  BOX*S  CENTERLINE. 

SUBROUTINE  WHICH  GENERATES  INDIUIDUAL  PSEUDO-RANDOM 
SURFACES  OF  SLIDING  BLOCK  SHAPE. 

SUBROUTINE  WHICH  GENERATES  INDIUIDUAL  PSEUDO-RANDOM 
SURFACES  OF  SLIDING  BLOCK  SHAPE  WITH  ACTIUE  AMD 
PASSIUE  ZONES  GENERATED  ACCORDING  TO  THE  RANKINE 
THEORY. 

AN  ARRAY  OF  THE  END  COORDINATE  POINTS  DEFINING  THE 
GROUND  SURFACE  AND  SUBSURFACE  BOUNDARIES. 


POSITION  ON 
MUST  EXCEED 

DENOMINATOR 
BEING  ZERO. 


GROUND  SURFACE  WHICH  EACH  TRIAL  SURFACE 
WHEN  IT  TERMINATES. 

OF  EXPRESSION  CHECKED  AS  A  PRECAUTION  OF 


DUMMY  UARIABLE  USED  IN  CALL 
AN  INTEGER  IS  TO  BE  READ. 

LAST  POSITION  ON  THE  GROUND 
SURFACES  INITIATE. 


OF  SUBROUTINE  READER  WH 


SURFACE  AT  WHICH  TRIAL 


POSITION  ON  GROUND  SURFACE  WHICH  EACH  TRIAL  SURFACE 
MUST  NOT  EXCEED  WHILE  BEING  GENERATED. 

UARIABLE  REPRESENTING  CURRENT  ERROR  CODE. 

SUBROUTINE  THAT  DIRECTS  CALCULATION  OF  THE  FACTOR  OF 
SAFETY  FOR  A  SPECIFIED  FAILURE  SURFACE. 


CONUERTS  AN  INTEGER  NUMBER  TO 


STANDARD  FUNCTION  THAT 
A  REAL  NUMBER. 

45  DEGREES  IN  RADIANS. 

FACTOR  OF  SAFETY. 


ARRAY  CONTAINING  UALUES  OF  THE  FACTOR  OF  SAFETY 
THE  TEN  MOST  CRITICAL  TRIAL  SURFACES  OF  THOSE 
GENERATED  AND  EXAMINED. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 


CONTROL  CODE  SIGNALS  WHETHER  TRIAL  SURFACE 
ANGLES  HAUE  BEEN  SPECIFIED  OR  NOT. 


i-'MHn  i:m 

ARiIHD  138 

F'nNn  140 
Rl'iNU  142 

APliHD  144 
RAND  146 
RAND  148 
RAND  150 
RAND  152 
RAND  154 
RAND  15B 
RAND  158 
RAND  ISO 
RAND  162 
RAND  164 
JUL7GEB0 
JUL76EB0 
JUL76EB0 
JUL7GEB0 
JUL76EB0 
RAND  166 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 
PAND 

NRAND 
RAND 
RAND 
PAND 
RAND 
PAND 
PAND 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 
PAND 
PAND 
RAND 
RAND 
FOR  RAND 
PAND 
RAND 
PAND 
RAND 
RAND 
INITIATIONRAND 
RAND 


C0N1R0L  CODE  WHICH 
BLOCK  SURFACE. 

CONTROL  CODE  WHICH 
BLOCK  SURFACE  WITH 

CONTROL  CODE  WHICH 
CIRCULAR  SURFACE. 


ACTIUATES  GENERATION  OF  A  SLIDING 


ACTIUATES  GENERATION  OF  A  SLIDING 
RANKINE  ACTIUE  AND  PASSIUE  WEDGES 

ACTIUATES  GENERATION  OF  A 


1E8 
170 
172 
174 
176 
178 
180 
182 
184 
186 
188 
190 
192 
194 
196 
198 
200 
202 
204 
206 
208 
210 
212 
214 
216 
218 
220 
222 
224 
226 
228 
230 
232 
234 
236 
238 
240 
242 
244 
246 
24S 


RAND 

RAND 

RAND 

RAND 

JUL76EB0 

JUL76EB0 

JUL76EB0 

RAND  250 

RAND  252 


1*37 


c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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c 
c 
c 
c 
c 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


I DUMMY 
IEXIT 

II 

ILIMIT 

INCRE 
INTS 

INTSC2 

ISEARC 
ISDRT 
I  SURF 
ITM 

J 

JB 

JI 

JJ 

JTN 


DUMMY  UARIABLE  USED  IN  CALL 
A  REAL  NUMBER  IS  TO  BE  READ 


OF  SUBROUTINE  READER 


RAND 

UHENRAND 

RAND 


CONTROL  CODE  WHICH  TERMINATES  EXECUTION.  IF  DATA  IS 
INCONSISTENT  WITH  THE  REQUIREMENTS  OF  THE  PROGRAM. 

INDEX  VARIABLE  FOR  ARRAY  SUBSCRIPTING. 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM 
AFFECTED  BY  SEARCHING  LIMITS  ESTABLISHED  BY 
SUBROUTINE  LIMITS. 

SPACING  BETWEEN  THE  TRIAL  SURFACE  INITIATION  POINTS. 


254 
256 
253 
260 
PE2 
264 
266 
2G8 
27  0 


CONTROL  CODE 
HAS  OCCURRED 


WHICH  SIGNALS 
OR  NOT. 


WHETHER  AN  INTERSECTION 


ENTRY  POINT  INTO  SUBROUTINE  INTSCT  WHICH  DETERMINES 
WHETHER  OR  NOT  A  LINE  SEGMENT  AND  A  UERTICAL  LINE 
INTERSECT  AND  CALCULATES  THE  COORDINATES  OF  THE 
INTERSECTION. 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM 
AFFECTED  BY  THE  SEARCHING  SUBROUTINE  RANDOM. 


CONTROL  CODE 
SURFACES. 


USED  TO  DIRECT  SORTING  OF  TRIAL 


CONTROL  CODE  WHICH  INDICATES  DEFINITION  OF  SPECIFIED 
TRIAL  FAILURE  SURFACE. 

VARIABLE  USED  TO  TEMPORARY  STORE  THE  UALUE  OF  AN 
INDEX  UARIABLE  USED  FOR  ARRAY  SUBSCRIPTING. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

SUBSCRIPT  OF  LAST  BOUNDARY,  DEFINING  THE  GROUND 


PAND 

RAND 

RAND 

PAND 

RAND 

PAND 

NGU76EB0 

N0U76EB0 

N0U76EB0 

N0U7GEB0 

RAND  272 

PAND  274 

RANI 

PAND 

RAND 

RAND 

PAND 

RAND 

RAND 

RAND 

PAND 

RAND 

RAND 

RAND 

PAND 

RAND 

PAND 

RAND 

RAND 

JUL7GEB0 

JUL7GEB0 

JUL7EEB0 

RAND  310 

PAND 

PAND 


SURFACE.  TO  EE 
BLOCK  BOX  LIES 


USED  FOR 
ENTIRELY 


DETERMINING  WHETHER  A  SLIDINGPAND 


BELOW  THE  GROUND  SURFACE. 


SUBSCRIPT  OF  LAST  BOUNDARY,  DEFINING  THE  GROUND 
SURFACE,  TO  BE  USED  FOR  DETERMINING  THE  Y  COORDINATE 
OF  THE  INTERSECTION  OF  THE  LEFT  TERMINATION  LIMIT 
WITH  THE  GROUND  SURFACE. 

SUBSCRIPT  OF  LAST  GROUND  SURFACE  BOUNDARY  USED  FOR 
CALCULATION  OF  THE  Y  COORDINATE  OF  AN  INITIATION 
FOINT. 

UARIABLE  USED  TO  TEMPORARY  STORE  THE  UALUE  OF  AN 
INDEX  UARIABLE  USED  FOR  ARRAY  SUBSCRIPTING. 


BL0CK2 


K 

DO  LOOP  INDEX. 

K2 

UALUE  OF  K  ROUNDED  DOWN  TO  AN  EUEN  INTEGER. 

M 

CONTROL  NUMBER  FOR  ERROR  CODE  IN  SUBROUTINE 

MB 

CONTROL  CODE  WHICH  INDICATES  MODIFIED  BISHOP 
FACTOR  OF  SAFETY  CALCULATION  (IF  MB=1). 

N 

COUNTER  FOR  DO  LOOP. 

NGRID 

NUMBER  OF  BOXES  SPECIFIED. 

NIPT 

NUMBER  OF  INITIATION  POINTS. 

27G 
278 
280 
232 
2B4 
23G 
288 
230 
292 
284 
296 
298 
300 
302 
304 
30G 
308 


312 
314 
31G 
318 
320 
322 
324 
3PG 
328 
330 
332 
334 
33G 
333 
340 


RAND 
RANI 

RAND 
RAND 

RAN 
RAPID 
RAND 
PAND 
RAND 
RAND 
RAND 
RAND 
JUL7GEB0 
JUL7GEB0 
-JUL7GEE0 
RAND  342 
RAND  344 
RAND  34G 
RAND  343 
AUG7GEB0 
AUG7GEB0 
MAR77EB0 
MAR77EB0 
MAR77EB0 
RAND  350 
RAND 
RAND 
RAND 
RAND 


352 
354 
35G 
358 


»4  30 


c 
c 
c 
c 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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NS 

NUMBER 

NSURF 

NUMBER 

NSURFS 

ARRAY  1 
DEFINII 
SURFACI 

NTOP 

NUMBER 

NTRIA 

TOTAL  1 

NTRIAL 

NUMBER 
POINT. 

OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 


NUMBER 

PERPEN 
PLOTIN 


PL0TN2 
PL0TN3 

PLTN 

PLT2 
PLT3 

PLT4 

QUIT 

RAD5 
RANSUF 

RD 
READER 

SCALER 


CONTAINING 
EACH  or 


UALUES  OF  THE  NUMBER  OF  POINTS 
THE  TEN  MOST  CRITICAL  TRIAL 


RAND 
OF  POINTS  DEFINING  THE  LAST  SURFACE  GENERATED. PAND 

RAND 
RAND 
Pi  'Hi; 
PAND 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 
PAND 
OF  TRIAL  5URFACES  GENERATED  FROM  EACH  STARTINGPAND 

RAND 


OF  GROUND  SURFACE  BOUNDARIES. 
NUMBER  OF  TRIAL  FAILURE  SURFACES  GENEPATED. 


EXTERNAL  SUBROUTINE  THAT  ACTIUATES  THE  PLOTTING  PEN 
TO  PLOT  NUMBERS. 

30  DEGREES  IN  RADIANS. 

SUBROUTINE  THAT  PLOTS  WITH  A  PLOTTING  DEUICE  AXES 
WITH  LADLES.  PROFILE  BOUNDARIES  AND  IF  APPLICABLE. 
THE  WATER  SURFACE,  SURFACE  GENERATION  BOUNDARIES. 
SURCHARGE  EOUNDARY  LOADS  AND  GENERATION  BOXES  FOR 
THE  SLIDING  BLOCK  SEARCH. 

ENTRY  OF  SUBROUTINE  PLOTIN  WHICH  PLOTS  INDIUIDUAL 
TRIAL  FAILURE  SURFACES  WITH  A  PLOTTING  DEUICE. 

ENTRY  OF  SUBROUTINE  PLOTIN  WHICH  PLOTS  THE  TEN  MOST 
CRITICAL  TRIAL  FAILURE  SURFACES  WITH  A  PLOTTING 
DEUICE. 

SUBROUTINE  THAT  STORES  THE  AXES  AND  THEIR  TICKMARK 
LABLES  IN  AN  ARRAY  TO  BE  LATER  PRINTED  ON  THE  LINE 
PRINTER. 


ENTRY  OF  SUPROUTINE  PLTN  WHICH  STORES 
TRIAL  FAILURE  SURFACES  INTO  THE  ARRAY 


INDIUIDUAL 

TO  EE  PRINTED. 


ENTRY  OF 
CRITICAL 
PRINTED. 


SUBROUTINE  PLTN  WHICH  STOPES  THE  TEN  MOST 
TRIAL  FAILURE  SURFACES  IN  THE  ARRAY  TO  BE 


ENTRY  OF  SUBROUTINE  PLTN  WHICH  STOPES  THE  PROFILE 
GEOMETRY  AND.  IF  APPLICABLE.  THE  WATER  SURFACE. 
SURFACE  GENERATION  BOUNDARIES.  SURCHARGE  BOUNDARY 
LOADS  AND  A  SPECIFIED  TRIAL  FAILURE  SURFACE.  PLT4 
THEN  PRINTS  THE  ENTIRE  ARRAY  AND  ITS  AXIS  LABLES. 

SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE. 
TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE 
PROGRAM. 

5  DEGREES  IN  RADIANS. 

SUBROUTINE  WHICH  GENERATES  INDIUIDUAL  PSEUDO-RANDOM 
SURFACES  OF  A  CIRCULAR  AND  IRREGULAR  NATURE. 

FACTOR  FOR  CONUERSION  OF  DEGREES  TO  RADIANS. 


SUBROUTINE  THAT 
FORM  FORMAT. 


READS  INTEGER  OR  REAL  DATA  IN  FREE 


3G0 
362 
364 
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3E8 
370 
37? 
374 
37G 
378 
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382 
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38G 
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RAND  390 

N0U7GEB0 

N0U7GEB0 

N0U7GEB0 

RAND  392 
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PAND 

PAND 
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PAND 

RAND 

PAND 

PANE 

RAND 

PAND 
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RAND 

PAND 

RAND 

RAND 

RAND 

RAND 

RAND 

RAND 

RAND 

RAND 

RAND 

PAND 

PAND 

RA'HD 

RAND 


SUBROUTINE  WHICH  DETERMINES  THE 
GEOMETRY  WITHIN  THE  PLOT. 


SCALE  TO  FIT  PROBLEM 


PAND 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 
RAND 


394 
396 
398 
400 
402 
404 
406 
408 
410 
412 
414 
416 
418 
420 
422 
424 
426 
428 
430 
432 
434 
436 
438 
440 
442 
444 
44S 
448 
450 
452 
454 
456 
458 
460 
462 
464 
4EG 
468 
470 
472 
474 
476 
478 
480 
482 
484 
4BE 


1*39 


c 

RAND  488 

c 

SLOPE 

SLOPE  IN  RADIANS  OF  LINE  DEFINING  THE  GROUND  SURFACE 

RAND  490 

c 

WHERE  A  TRIAL  SURFACE  INITIATES. 

RAND  49? 

c 

RAND  494 

c 

SLP 

SLOPE  OF  LINE  EXTENDING  FROM  FIRST  POINT  ON  GROUND 

RANT  49G 

c 

SURFACE  TO  CITHER  OF  1HC  BOTTOM  COPNLPG  OF  THE  FIRST 

RAND  498 

c 

BOX  SPECIFIED  FOR  A  SLIDING  BLOCK  SEARCH. 

RAND  500 

c 

RAND  502 

c 

SORT 

SUBROUTINE  THAT  SORTS  TEN  TRIAL  FAILURE  SURFACES  BY 

RAND  504 

c 

MAGNITUDE  OF  FACTOR  OF  SAFETY. 

RAND  50G 

c 

RAND  508 

c 

START 

FIRST  POSITION  ON  THE  GROUND  SURFACE  AT  WHICH  TRIAL 

RAND  510 

c 

SURFACES  INITIATE. 

RAND  512 

c 

RAND  514 

c 

SURF 

ARRAY  CONTAINING  THE  X  AND  Y  COORDINATES  OF  POINTS 

PAND  51S 

c 

DEFINING  A  TRIAL  FAILURE  SURFACE. 

RAND  518 

c 

PAND  520 

c 

SURFS 

ARRAY  CONTAINING  SETS  OF  COORDINATE  POINTS  DEFINING 

RAND  522 

c 

EACH  OF  THE  TEN  MOST  CRITICAL  TRIAL  SURFACES. 

RAND  524 

c 

PAND  52G 

c 

SYMBOL 

EXTERNAL  SUBROUTINE  THAT  ACTIUATES  THE  PLOTTING  PEN 

N0U7BEE0 

c 

TO  PLOT  CHARACTERS  OR  ON-CENTER  SYMBOLS. 

N0U7GCB0 

c 

N0U7EEE0 

c 

TAL 

INTEGER  UARIABLE  STORING  THE  NUMBER  OF  TRIAL 

N0U7EEB0 

c 

SURFACES  GENERATED  IN  A  SEARCH.  USED  BY  THE 

N0U7GEB0 

c 

EXTERNAL  SUBROUTINE  NUMBER. 

N0U7GEB0 

c 

N0U7GEB0 

c 

TOL 

TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  ROUNDING. 

PAND  528 

c 

RAND  530 

c 

TSURF 

LENGTH  OF  LINE  SEGMENTS  DEFINING  TRIAL  SURFACES. 

RAND  532 

c 

RAND  534 

c 

WIDTH 

ARRAY  CONTAINING  THE  UALUES  OF  THE  WIDTH  OF  EACH 

RAND  53G 

c 

BOX. 

PAND  538 

c 

RAND  540 

c 

XL 

ARRAY  CONTAINING  UALUES  OF  THE  X  COORDINATE  OF  THE 

RAND  542 

c 

LEFT  END  OF  EACH  BOX  CENTERLINE. 

PAND  544 

c 

RAND  54G 

c 

XR 

ARRAY  CONTAINING  UALUES  OF  THE  X  COORDINATE  OF  THE 

PAND  543 

c 

RIGHT  END  OF  EACH  BOX  CENTERLINE. 

RAND  550 

c 

PAND  552 

c 

Y 

Y  COORDINATE  OF  POINT  ON  TOP  EDGE  OF  SLIDING  ELOCK 

PAND  554 

c 

BOX  DIRECTLY  BELOW  A  GROUND  SURFACE  BOUNDARY  END 

PAND  55G 

c 

POINT. 

RAND  558 

c 

RAND  5G0 

c 

YBPT 

Y  COORDINATE  OF  LEFT  TERMINATION  LIMIT  AT  THE  GROUND 

PA'^D  5G2 

c 

SURFACE. 

RAND  554 

c 

RAND  5GG 

c 

YEPT 

Y  COORDINATE  OF  RIGHT  TERMINATION  LIMIT  AT  THE  GPOUNDF 

c 

SURFACE. 

PAND  570 

c 

RAND  572 

c 

YGL 

Y  COORDINATE  OF  POINT  ON  GROUND  SURFACE  DIRECTLY 

RAND  574 

c 

ABOUE  THE  LEFT  END  OF  A  SLIDING  BLOCK  BOX. 

PAND  57G 

c 

PAND  578 

c 

YGR 

Y  COORDINATE  OF  POINT  ON  GROUND  SURFACE  DIPECTLY 

RAND  580 

c 

ABOUE  THE  RIGHT  END  OF  A  SLIDING  BLOCK  BOX. 

RAND  582 

c 

RAND  584 

c 

YL 

ARRAY  CONTAINING  UALUES  OF  THE  Y  COORDINATE  OF  THE 

RAND  58S 

c 

LEFT  END  OF  EACH  BOX  CENTERLINE. 

RAND  5BB 

c 

RAND  590 

c 

YLL 

LEFT  TOP  CORNER  OF  A  SLIDING  BLOCK  BOX. 

RAND  592 

c 

FAND  594 

c 

YMIN 

LOWEST  DEPTH  TO  WHICH  A  TRIAL  SURFACE  MAY  EXTEND. 

RAND  59G 

c 

RAND  598 

c 

YR 

ARRAY  CONTAINING  UALUES  OF  THE  Y  COORDINATE  OF  THE 

RAND  GOO 

c 

RIGHT  END  OF  EACH  BOX  CENTERLINE. 

RAND  G02 

c 

RAND  G04 

c 

YRR 

RIGHT  TOP  CORNER  OF  A  SLIDING  BLOCK  BOX. 

RAND  GOG 

c 

RAND  G08 

Uo 


_   PAND 

_•     RAND 

^  RftND 

COMMON  /BLKOl/IANCL.IBLK.IEXIT.ICIPC.ILIMIT.IPLOT.IREAD. ISEARC.    RAND 

1                     IBLK2.  ISOIL.ISTR.ISURCISUPF.IUAT.RD.TOL  PAND 

COMMON  /BLK02/BNDS(100.4).C(20).GftMMfl(20)tGSATC20).ITPaOO).NBND.  RftND 

1              NSOIL.NTOP.PH1(20).RU(20).CU(20).NP(20)  PAND 

common  /blkos/nsurf, surf ( 100.2)  „%  R^P, 

COMMON  /BLK 12/ANCS1 . ANGS2. BPT. EPT. FRTYFU. FS. FS5( 12 ) . JJ. NSURFSf 12 ) . RftND 

1              PERPEN,SURFS(100.2.12).TSURF.YBPT,YEPT,YMIN  RAND 

COMMON  /BLK13/NGRID.UIDTH(10).XL(10).XR(10).YL(10).YR(10)  RAND 

COMMON  /BLK15/  M.MB  RAND 

DIMENSION  ERRORC20)                                    „  RANU 

DATA  ERROR/4HRC0 1 , 4HRC02. 4HRC03. 4HRC04. 4HRC05. 4HRC0G. 4HRC07,  RAND 

1    4HPCOB, 4HRC09. 4HRC12. 4HBK01 , 4HBK02, 4HBK03. 4HBK04, 4HBK05. 4HEK0G. RAND 

1    4HBK07.4HBK08.4HBK11.4HRC13/  RAND 

REAL    INCRE  ™™ 

INTEGER   TAL  ™ND 

PERPEN=90.«RD  ™ 

RAD5=5.»RD  PftH° 

IAMGL=0  Rg™ 

IBLK=0  P^"^ 

GO   TO    19  RRML 

r  RftND 

C     »«•*•«»••»»  PAND 

ENTRY  BLOCK  ^22 

r     «»»•»«•«««•  PAND 

P  RAND 

IBLK=1  RAND 

NIPT=1  RftNS 

M=0  RA,iD 

19  FRTYFU=45.«RD  RAM£ 

ISEARC=1  RA^D 

ISURF=0  RftHD 

IF(ICIRC.EQ.O)  MB=0  RAriD 

c  RAND 

c    RAND 

C   CHECK  FOR  SLIDING  BLOCK  SURFACE  SEARCH  PAND 

c        RAND 

c  RAND 

IFCIBLK.EQ.DGC   TO   21  PAND 

r  PAND 

c         RAND 

C   PRINT  TITLE  FOR  CIRCULAR  OR  IRREGULAR  SURFACE  SEARCH  RAND 

r   RftND 

c  RAND 

IFQCIRC.EQ.CnWRITECGtlOl)  RAND 

101  F0RMAT(1H1,9X,  RAND 
1*A  CRITICAL  FAILURE  SURFACE  SEARCHING  METHOD,  USING  A  RANDOM  *,  RAND 
1/.10X,  RftM° 
1*TECHNIQUE  FOR  GENERATING  IRREGULAR  SURFACES.  HAS  BEEN  SPECIFIED. ^RAND 
!,••)  R«nd 

IF(ICIRC.EG.1)URITECG,102)  RAND 

102  F0RMATC1H1.9X.  PftHD 
l*fl  CRITICAL  FAILURE  SURFACE  SEARCHING  METHOD.  USING  A  RANDOM  *.  RAND 
1/.10X.  RflND 
^TECHNIQUE  FOR  GENERATING  CIRCULAR  SURFACES.  HAS  BEEN  SPECIFIED.*  RAND 
!,•/)  RftND 

r  RAND 

c    RAND 

C   READ  NUMBER  OF  INITIATION  POINTS  AND  RAND 

C   NUMBER  OF  POINTS  GENERATED  FROM  EACH  RAND 

c    RAND 

£  RAND 

CALL  READER( DUMMY,  NIPT.  0)  PAND 

CALL  READER(DUMMY.NTRIAL.O)  RAND 

c  RAND 


BIO 

G12 

£14 

616 

£18 

G20 

G22 

G24 

G2G 

628 

G30 

G31 

632 

G34 

G3G 

638 

640 

G41 

642 

G44 

G4G 

G48 

650 

652 

G54 

65G 

658 

6G0 

662 

6G4 

GG5 

b6G 

GG8 

G70 

671 

G72 

G74 

G76 

678 

680 

682 

G84 

68G 

G88 

690 

692 

694 

G96 

698 

700 

702 

704 

70G 

708 

710 

712 

714 

716 

7ie 

720 
722 
724 
72G 
728 
730 
732 
734 


* 


*  See  footnote  p.  Ul*3. 


UUl 


c 

c 
c 
c 


CALCULATE  AMD  PRINT  TOTAL  NUMBER  OF  SURFACES  GENERATED 


NTRIA=NTRIAL«NTPT 
WRITECG. 103)NTRIA 
103  F0RMATC8X.I5.*  TRIAL  SURFACES  HAUE  BEEN  GENERATED. *, //) 


C 

C 

c 
c 

c 


c 
c 

c 
c 
c 
c 


CHECK  FOR  MINIMUM  OF  TEN  SURFACES  TO  BE  GENERATED 


IF(NTRIA.GE.10)GO  TO  59 
WRITECG, HO)ERROR(IO) 
IEXIT=1 


PRINT  NUMBER  OF  INITIATION  POINTS  AND 
NUMBER  OF  SURFACES  GENERATED  FROM  EACH 


59  WRITECG. 104)NTRIAL. NIPT 
104  F0RMATC8X. 15. 

U   SURFACES  INITIATE  FROM  EACH  0F*.I3.;<  POINTS  EQUALLY  SPACED;') 


C 

c 
c 
c 
c 


READ  AND  PRINT  LEFTMOST  AND  RIGHTMOST  INITIATION  POINTS 


CALL  PEADERCSTART.  IDUMMY.l) 

CALL  READER (END. I DUMMY. 1) 

WRITECG. 118)START, END 
118  FORMATUOX. 

l^ALONG  THE  GROUND  SURFACE  BETWEEN  X  =*,F7.2.*  FT.*./. 
139X./AND   X  =*,F7.2,*  FT.*,//) 


C 
C 
C 

C 

c 
c 


CHECK  IF  LEFTMOST  INITIATION  POINT  DOES  NOT 
LIE  BEYOND  LEFT  END  OF  DEFINED  GROUND  SURFACE 


IFCCBNDS(l.l)-START).LT.TGL)GO  TO  E 
WRITECG.  llO)ERROR(l) 
110  FORMATC/, 10X,14H»»»»  ERROR  -  .A4.GH  ••»»,/) 
IEXIT=1 


C 
C 
C 

c 
c 
c 


CHECK  ORDER  OF  INITIATION  POINTS 


G   IF(  (START-END). LT.TODGO  TO  7 
WRITECG. 110)ERR0R(2) 
IEXIT=1 


CHECK  IF  RIGHTMOST  INITIATION  POINT  DOES  NOT 
LIE  BEYCND  RIGHT  END  OF  DEFINED  GROUND  SURFACE 


7    IFCCEND-BNDSCNTOP. 3)). LT.TODGO  TO  49 
WRITECG. 110)ERROR(3) 
IEXIT=1 


RAND  73G 
RAND  733 
RAND  740 
RAND  742 
RAND  744 
RAND  74G 
RAND  748 
PAMD  750 
RAND  752 
RAND  754 
RAND  75G 
RAND  758 
RAND  7G0 
RAND  7G2 
RAND  7G4 
RAND  7GG 
RAND  7G8 
RAND  770 
RAND  772 
RAND  774 
RAND  77G 
RAND  778 
RAND  780 
RAND  782 
RAND  784 
RAND  78G 
RAND  785 
RAND  790 
RAND  792 
RAND  794 
RAND  79G 
PAND  798 
RAND  800 
RAND  802 
PAND  804 
RAND  BOG 
RAND  803 
RAND  810 
PAND  812 
RAND  814 
PAND  81G 
RAND  818 
RAND  820 
RAND  822 
RAND  824 
RAND  82G 
RAND  828 
PAND  830 
RAND  832 
RAND  834 
RAND  83G 
RAND  838 
PAND  840 
PAND  842 
PAND  844 
PAND  84G 
PAND  848 
PAND  850 
PAND  852 
RAND  854 
RAND  855 
PAND  858 
RAND  8G0 


kU? 


READ  AMD  PRINT  TERMINATION  LIMITS 


49  CALL  READER(BPT,IDUMMY,1) 
CALL  READERCEPT, I  DUMMY, 1) 
WRITE(6.105)BPT.EPT 
105  FORMAT(10X,*EACH  SURFACE  TERMINATES  BETWEEN   X  =*.F7.2,*  FT.*,/, 
138X.*AND   X  =*.F7.2.*  FT.*.//.) 


C 
C 

c 
c 
c 
c 


c 
c 
c 
c 
c 


CHECK  IF  RIGHT  TERMINATION  LIMIT  LIES 
UITHIN  DEFINED  GROUND  SURFACE 


IF((EPT-BNDS(NT0P.3)).LT.T0L)G0  TO  9 

WRITE(6.110)ERR0R(4) 

IEXIT=1 


CHECK  ORDER  OF  TERMINATION  LIMITS 


9  IF((BPT-EPT).LT.TOL)GO  TO  14 
WRITE(6.110)ERR0R(5) 
IEXIT=1 


CHECK  IF  RIGHTMOST  INITIATION  POINT  LIES 
TO  THE  LEFT  OF  THE  RIGHT  TERMINATION  LIMIT 


14  IF((EPT-END).GT.  0.)GO  TO  15 
URITE(G.110)ERROR(G) 
IEXIT=1 


READ  AND  PRINT  MINIMUM  ELEUATION  LIMITATION 


15   CALL   PEADERCYMIN.IDUMMY, 1) 
WRITE(G,10G)YMIN 
10G   FORMATUOX, 

1*UNLESS  FURTHER  LIMITATIONS  WERE  IMPOSED.  THE  MINIMUM  ELEUATION*. 

1/,10X, 

1*AT  WHICH  A  SURFACE  EXTENDS  IS  Y  =*,FG.2.*  FT.*,//) 


C 

c 
c 
c 
c 


c 
c 
c 
c 
c 


CHECK  IF  MINIMUM  ELEUATION  POSITIUE 


IF(YMIN.GE.O.)GO  TO  1G 

WRITE(6,110)ERR0R(7) 

IEXIT=1 


READ  AND  PRINT  LENGTH  OF  TRIAL  FAILURE  SURFACE  LINE  SEGMENT 


1G  CALL  READERCTSURF.IDUMMY, 1) 
WRITE(G.107)TSURF 
107  F0RMATC8X.F7.2, 

1*  FT.  LINE  SEGMENTS  DEFINE  EACH  TRIAL  FAILURE  SURFACE.*.//) 


RAND 

8S2 

RAND 

8G4 

RAND 

8GG 

RAND 

8G8 

RAND 

870 

RAND 

872 

RAND 

874 

RAND 

876 

RAND 

878 

RAND 

880 

RAND 

882 

RAND 

884 

RAND 

ess 

RAND 

888 

RAND 

890 

RAND 

892 

RAND 

894 

RAND 

89G 

RAND 

898 

PAND 

900 

RAND 

902 

RAND 

904 

RAND 

90G 

RAND 

908 

RAND 

910 

RAND 

912 

RAND 

914 

RAND 

91G 

RAND 

918 

RAND 

920 

PAND 

922 

RAND 

924 

RAND 

92G 

RAND 

928 

RAND 

930 

RAND 

932 

RAND 

934 

PAND 

93G 

RAND 

938 

RAND 

940 

RAND 

942 

RAND 

944 

RAND 

94G 

RAND 

949 

RAND 

950 

RAND 

952 

RAND 

954 

RAND 

95G 

RAND 

958 

RAND 

9S0 

RAND 

9G2 

RAND 

9G4 

RAND 

96G 

RAND 

9G8 

RAND 

970 

RAND 

972 

RAND 

974 

RAND 

97G 

RAND 

978 

RAND 

980 

RAND 

982 

RAND 

984 

RAND 

9SG 

RAND 

988 

U3 


C 
C 

c 
c 

c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


CHECK  IF  LENGTH  OF  LIME  SEGMENT  IS  POSITIUE  NON-ZERO 


IF(TSURF.GT.O. )GO  TO  17 

URITE(6.110)ERR0R(B) 

IEXIT=1 


READ  ANGLE  LIMITATIONS  FOR  INITIAL  LINE  SEGMENT 


1?  CALL  READER(ANGSl.IDUMMY.l) 
CALL  READERCANGS2.IDUMMY.1) 


CHECK  FOR  AUTOMATIC  ANGLE  LIMITATIONS 


IF(ANGS1.EQ.O..AND.ANGS2.EQ.O.)GO  TO  22 
IANGL=1 


PRINT  SPECIFIED  ANGLE  LIMITATIONS 


WRITECG. 109)ANGS2.ANGS1 
109  FORMATC10X, 

^RESTRICTIONS  HAUE  BEEN  IMPOSED  UPON  THE  ANGLE  OF  INITIATION.*, 

1/.10X. 

1*THE  ANGLE  HAS  BEEN  RESTRICTED  BETWEEN  THE  ANGLES  OF*,FG.l, 

1*  AND^.FG.l.*  DEG.*.//) 

ANG1=ANGS1»RD 

ANG2=ANGS2»RD 


C 
C 

C 
C 
C 


CHECK  ORDER  OF  ANGLE  LIMITATIONS 


IF((ANGS2-ANCS1).LT.T0L)  GO  TO  22 
WRITECG. 110)  ERROR(20) 
IEXIT=1 
GO  TO  22 


PRINT  TITLE  FOP  SLIDING  BLOCK  SURFACE 


21  WRITECG. 11?) 
11?  F0RMATOH1.9X, 

1*A  CRITICAL  FAILURE  SURFACE  SEARCHING  METHOD.  USING  A  RANDOM  *, 

1/.10X. 

^TECHNIQUE  FOR  GENERATING  SLIDING  BLOCK  SURFACES.  HAS  BEEN  *,/ 

110X,*SPECIFIED.  *,//) 
IF(IBLK2.EQ.1)URITE(B.121) 
121    FORMATdOX. 

1*THE  ACTIUE  AND  PASSIUE  PORTIONS  OF  THE  SLIDING  SURFACES*./. 

1  10X.*ARE  GENERATED  ACCORDING  TO  THE  RANKINE  THEORY. *,//) 


RAND 
RAND 
RAND 
RAND 
PAMD 
RAMD1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
PAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
PAND1 
RAND1 
RAND1 
RAND1 
RANE1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
PAND1 
RAND1 
RAND1 
RAND1 
RAMD1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
Rfif-IDl 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
.RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 
RAND1 


990 

992 

994 

99G 

998 

000 

002 

004 

006 

008 

010 

012 

014 

01G 

018 

020 

022 

024 

02G 

028 

030 

032 

034 

035 

038 

040 

042 

044 

04G 

048 

050 

052 

054 

05G 

058 

0G0 

0G2 

0G4 

OGG 

0G8 

070 

072 -1- 

080 

082 

084 

085 

088 

090 

092 

094 

095 

09G 

097 

098 

093 

100 

101 

102 

104 


*  This  change  was  made  in  January  1978,  hence  is  not  included  in  the 
listing  of  changes  in  Appendix  D  (Table  D.l).  The  change  should 
eliminate  this  frequently  occuring  error  in  input  data.   Error  HC13 
is  added  to  the  list  of  error  messages  in  the  revised  STABL  User  Manual. 


khk 


c 
c 
c 

c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


READ  AND  PRINT  NUMBER  OF  TRIAL  SURFACES  GENERATED 


C 
C 

C 

c 
c 


CALL  READERC DUMMY, NTRIAL.O) 
WRITE(6,103)NTRIAL 


CHECK  FOR  MINIMUM  OF  TEN  SURFACES  TO  BE  GENERATED 


IF(NTRIAL.GE.IO)  GO  TO  58 

URITE(6.110)ERROR(19) 

IEXIT=1 


READ  AND  PRINT  NUMBER  OF  BOXES 


C 
C 
C 
C 
C 


C 

c 
c 
c 
c 


58  CALL  READER ( DUMMY, NGRIDtO) 

URITE(6.119>NGRID 
119  F0RMATC8X.I3. 

1*  BOXES  SPECIFIED  FOR  GENERATION  OF  CENTRAL  BLOCK  BASE?:./-') 


CHECK  SLIDING  BLOCK  BOX  STORAGE  LIMIT 


IF(NGRID.LE.10)GO   TO   35 
URITE(G.llO)ERRORUl) 
CALL   QUIT 


READ  AND  PRINT  LENGTH  OF  TRIAL  FAILURE  SURFACE  LINE  SEGMENT 


35  CALL  READER(TSURF.IDUMMY.l) 
URITE(6,131)TSURF 
131  FORMATC10X. 

1*LENGTH  OF  LINE  SEGMENTS  FOR  ACTIUE  AND  PAS5IUE  PORTIONS  OF*,-", 
110X/SLIDING  BLOCK  IS*. F6. 1, /•) 


CHECK  IF  LENGTH  OF  LINE  SEGMENT  IS  POSITIUE  NON-ZERO 


IFCTSURF.GT.O. )GO  TO  5G 
URITE(G,110)ERRORC12) 
IEXIT=1 
5G  DO  25  I=1,NGRID 


READ  DATA  DEFINING  SLIDING  BLOCK  BOXES 


CALL  READER(XL(I),IDUMMY, 1) 
CALL  READER(YL(I),IDUMMY,1) 
CALL  READER(XR(I),IDUMMY,1) 
CALL  READER(YR(I),IDUMMY,1) 
CALL  READER(WIDTHd).IDUMMY.l) 
25  CONTINUE 


RAND  HOG 

RAND1108 

PAND1110 

RAND1112 

RAND1114 

RAND1116 

RAND1118 

RAND1120 

RAND  11 22 

RAND 1121 

RANC112G 

RAND 1128 

RAND1130 

RAND1132 

RAND 11 34 

PAHD113G 

RAND  11 38 

RAND1140 

RAND1142 

RAND1144 

RAND  1146 

RAND114B 

RAND1150 

RAND 11 52 

RAND  1154 

RAND115G 

RAND  1158 

RAND11G0 

PAND11G2 

RAND11G4 

RAND11GG 

RAND11G8 

RAND1170 

RAND1172 

RAND1174 

RAND117G 

RAND1178 

RAND1180 

RAND1182 

RAND1184 

RAND118G 

RAND  11 88 

RAND1190 

RAND1192 

RAND1194 

RAND119G 

RAND1198 

RAND1200 

RAND1202 

RAND1204 

RAND120G 

RAND1208 

RAND1210 

RAND1212 

RAND1214 

RAND121G 

RAND1218 

RAND1220 

RAND1222 

RAND1224 

RAND122G 

RAND1228 


m»5 


PRINT  HEADINGS  FOR  BOX  DATA 


URITECG. 120) 
120  FORMAT  ( 1  OX,  f'BOX*,  8X.  *X-LEFT*.  5X.  *Y-LEFT*.  4X.  XX-RIGHT*.  4X. 
l^Y-RIGHT^.GX.^WIDTH?:./. 
110X.;*NO.:',9X.*CFT)*,7X.X(FT)*,7X.;<CFT);»!,7X,*(FT)*.8X.*(FT)*./) 


c 
c 
c 
c 
c 
c 


CHECK  IF  SPECIFIED  CENTERLINE  INTERSECTIONS 
OF  EACH  BOX  ARE  IN  PROPER  LEFT-RIGHT  ORDER 


DO  39  I=1,NGRID 
IF((XL(I)-XR(I)).LT.TOL)GO  TO  39 
URITECG. 111)ERR0RC13). I 
111  FORHATC/.  10X.  14H«»»*  ERROR  -  .A4.GH   •«««,  5X.  3HB0X,  13.  /  ) 
IEXIT=1 
39  CONTINUE 

IFCNGRID.EQ.DGO  TO  37 


C 
C 

c 
c 
c 


c 
c 
c 
c 
c 


c 

c 
c 
c 
c 


CHECK  IF  BOXES  SPECIFIED  ARE  IN  LEFT-RIGHT  ORDER 


DO  2G  I=2.NCRID 
IF(XR(I-l).LT.XLCI))GO  TO  26 
URITECG. 111)ERR0R(14). I 
IEXIT=1 
2G  CONTINUE 


CHECK  IF  EACH  BOX  IS  TOTALLY  DEFINED  UITHIN  THE  1ST  QUADRANT 


37  DO  33  I=1.NGRID 

YLL=YL( I i-ABS( WIDTH ( I  V2. ) 
YRR=YR(I)-ABS(UIDTH(I)/2.) 
IF(XL(I).GT.-TOL.AND.XR(I).GT.-TOL.AND.YLL.GT.-TOL.AND.YPR.GT. 

l)GO  TO  38 
URITECG. 111)ERR0R(15).  I 
IEXIT=1 

38  CONTINUE 


CHECK  IF  EACh  BOX  IS  TOTALLY  BELOW  THE  DEFINED  GROUND  SURFACE 


JB=1 

DO  41  I=1.NGRID 
DO  42  J=J3.NT0P 
JTN=J 

CALL    INTSC2CBNDSCJ.l),BNDS(J,2).BNDS(J.3).BNDS(J.4).0..0..O..O 
1        XL(I).YGL.INTS) 
IFCINTS.EQ.DGO   TO  43 

42  CONTINUE 

43  JB=JTN 
YLL=YLCI)+WIDTH(I)/2. 
IFCYGL.GE.YLDGO   TO  44 
URITECG. lll)ERROR(lB).  I 
IEXIT=1 

GO  TO  41 

44  DO  4G   J=JB,NTOP 
JTN=J 

CALL    INTSC2(BNDS(J.1).BNDSCJ.2),BNDS(J.3).BNDSCJ,4),0..0..0.»0 
1        XR(I).YGR.INTS) 
IFCINTS.EQ.DGO   TO  47 
4G   CONTINUE 


PAHni230 
RAND 1232 
PMMD1234 
RHMD1236 
RriMD1238 
RAND1240 
RAND  1242 
RAHD1244 
RAND124S 
RAND124B 
RAND1250 
RAND1252 
RAND1254 
RAND125E 
RAND1258 
RAND1250 
RAND12G2 
RAHD12G4 
RAND12GG 
RAND12G8 
RAHD1270 
RAND1272 
RAND1274 
RAND127G 
RAND127S 
RAND1280 
RAND  1282 
RAND1234 
RAND128G 
RAND  1 288 
RAND1290 
Rf,ND1292 
RAND1294 
RAND129G 
RAND1298 
RAND1300 
RAND1302 
RAND1304 
RAND130G 

-TOLRAN31308 
RAND1310 
RAND1312 
RAND1314 
RAND131G 
PAND1318 
RAND1320 
RAND1322 
RAND  1324 
RAND132G 
RAND1328 
RAND1330 
RAND1332 
RAND1333 

,,  PAND1334 
RAND133G 
RAND1333 
RAND1340 
RAND1342 
RAND1344 
RAND134G 
RAND1348 
RAND1350 
RAND1352 
RAND1354 
RAND1355 

,»  RAND135B 
RAND135E 
RAND13G0 
RAND13G2 


khG 


c 
c 
c 
c 
c 
c 


CHECK  IF  POSSIBLE  TO  COMPLETE  TRIAL  FAILURE 
SURFACE  FROM  ANY  POINT  WITHIN  FIRST  BOX 


47  IF(JTN.EQ.JB)GO  TO  48 
JB=JB+1 

BGRID=(YL(I)-YR(I))/(XL(I)-XR(D) 
DO  50  K=JB.JTN 

Y=YLL+BGRID» ( BNDSCK, 1 )-XL( I ) ) 
IF(BNDS(K»2).GE.Y)G0  TO  50 
URITE(G. 111)ERR0R(1B).I 
IEXIT=1 
GO  TO  41 
50  CONTINUE 
JB=JTN 

48  YRR=YR(I)+UIDTri(I)/2. 
IFCYGL.GE.YLDGO   TO   41 
WRITEC6, 111)ERR0R(1B).I 
IEXIT=1 

41    CONTINUE 


CHECK  IF  POSSIBLE  TO  COMPLETE  TRIAL  FAILURE 
SURFACE  FROM  ANY  POINT  WITHIN  LAST  BOX 


IF(XR(NGRID).LE.BNDS(NT0P,3))G0  TO  53 

WRITE(6.1iO)ERROR(17) 

IEXIT=1 

C 

c   

C 

c 
c 
c 

53  DENOM=XL(l)-BNDS(l.l) 
IF(DENOM.LE.O. )GO  TO  54 

5LP=(YLm-WIDTH(l)/2.-BNDS(l,2»/DEN0M 
IF(SLP.GE.-1.0)GO  TO  55 

54  WRITE(G.110)ERROR(18) 
IEXIT=1 

55  SLP=(YR(l)-WlDTH(lVa.-BNDSU»2)V(XR(l)-BNDSa,l)) 

IF(SLP.GE.-1.0)GO  TO  3G 

URITE(G.110)ERROR(18) 

IEXIT=1 

C 

c   

C   PRINT  DATA  DEFINING  SLIDING  BLOCK  BOXES 
c   

C 

3G  URITE(G.123)(I.XL(I),YL(I),XR(I),YR(I),WIDTH(I),I=1,NGRID) 
123  F0RMATOX.I3.4X.5F11.2) 

IF(IBLK2.EQ.1.AND.ILIMIT.NE.0)WPITE(E,112) 
112  rORMAT(//, 10X, 

1*WARNING  -  LIMITATION  BOUNDARIES  HAUE  BEFN  SPECIFIED.*,/, 
1  20X,*THESE  ARE  IGNORED  IN  THIS  PROGRAM  ROUTINE.*,//) 
22  CALL  SCALER 
CALL  PLTN 
C 

C 

C 

c 


TERMINATE  EXECUTION  IF  DATA  FAULTY 


IF(IEXIT.EQ.0)GO  TO  4 
CALL  PLT4 
CALL  QUIT 
4  CALL  PLOTIN 
11  =  0 
TAL^O 
ISORT=0 


PAHD13G4 

PAHD13E5 

PANDi368 

PAND1370 

PAND1372 

RAND1374 

PAND1376 

FAND1378 

PhHD1380 

RAND  1382 

RAHD13B4 

RAND133G 

RAND1388 

RAND1390 

PAND1392 

RANC1394 

RAND1396 

PAND1398 

RAND1400 

PAND1402 

RAND1404 

RAND140G 

RAND1408 

RAND1410 

RAND1412 

PAHD1414 

PAND141G 

RhND1418 

RAND1420 

PAND1422 

RAND1424 

PAND142G 

RAND  1428 

RAND1430 

PAND1432 

RAND1434 

RAND143S 

RAND  1433 

RAND1440 

RAND1442 

RAND1444 

RANC1446 

RAND1448 

RAND1450 

PAND1452 

RAND1453 

RAND1454 

RAND1455 

RAND145G 

RANB1457 

RAND1458 

RAND1459 

RAND14S0 

RAND14G2 

RAND14G4 

RAND14G6 

RAND14G3 

RAND1470 

RAMD1472 

RAMD1474 

PAND147G 

RAHD1478 

RAND1480 

RAND 1482 

RAND14S3  - 

RAND1484 

RAND148G 


M*  7 


c 
c 
c 
c 


c 
c 
c 

c 
c 


CHECK  FOR  SLIDING  BLOCK  SURFACE  SEARCH 


C 
C 
C 

c 
c 


IFCIBLK.EQ.DGO   TO  23 
JJ=1 


CALCULATE  HORIZONTAL  SPACING  BETWEEN  INITIATION  POINTS 


INCPE=0 

IF((NIPT-l).NE.O)INCRE=(END-START)/FLOAT(NIPT-l) 

C 

c   

C   CHECK  FOR  CIRCULAR  OR  IRREGULAR  SURFACE  SEARCH 
c   

C 

IF(ICIRC.EQ.0)GO  TO  27 

C 

c   

C   CALCULATE  V  COORDINATES  OF  TERMINATION 

C   LIMITS  AT  THE  GROUND  SURFACE 

c   

C 

DO  28  I=l,NTOP 

ITN=I 

IF(EPT.LT.BNDSf I, 1 ) . OR.BPT.GE. BNDS( I . 3) )GO   TO  28 

B=(BNDSCI.2)-BNDSf 1 ,  4 ) )/( ENDS( I » 1 )-ENDS( 1 .  3) ) 

A=BNDSU  .  2  )-B«SNDS(  1 , 1) 

YBPT=B«BPT+A 

GO  TO  29 
28  CONTINUE 
23  JI=ITN 

DO  30  I=JI,NTOP 

IF(EPT.LE.ENDS(I,1).0R.EPT.CT.BNDS(I.3))G0  TO  30 

B=iBNDS(I,2)-BNDS(I.4))/CBNDS(I.l)-BNDS(I.3)) 

A=ENDS(I.2)-B*BNDS(I.l) 

YEPT=B«EPT+A 

GO  TO  27 

30  CONTINUE 

C 

c   

C 

c 
c 


SET  UP  INITIATION  POINTS 


27  N=0 

START=START+T0L/2. 
13  N=N+1 


DETERMINE  COORDINATES  OF  INITIATION  POINT 


SURFQr  1)=START 
START=START+INCRE 
DO  5  I=JJ,NTOP 
ITN=I 


RAND1488 
PAND1490 
RAND1492 
RAND1494 
PAND1496 
RAND1498 
RAND1500 
RAND15C2 
RAND1504 
RAND150G 
RAND1508 
PAND1510 
RAND1512 
RAND1514 
RAND151G 
PAND15ie 
RAND  1520 
RAND1522 
PAND15?4 
PAMD152S 
RAND1528 
PAND1530 
RAND 1532 
RAND1534 
RAND153G 
PAND1538 
RAND1539 
RAND1540 
PAND1542 
RAND1544 
RAND154G 
RAND1548 
RAND1550 
RAND  1552 
RAND  1554 
RAH0155E 
RAND1558 
RAND15S0 
RAND15S2 
RAND15G4 
PAND15GS 
RAND1588 
RAND1570 
RAND1572 
RHNDi574 
RAHD157G 
RAND  1578 
RAND  1580 
RPND1582 
RAND1584 
RAND1586 
RAND  1588 
RAND1590 
RAND] 592 
RAND1594 
RAND159G 
RHND1598 
RAND1599 
RAND1G00 


M 


C 

c 
c 
c 
c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


CHECK  IF  INITIATION  POINT  LIES  ON  A 
UERTICAl  GROUND  SURFACE  BOUNDARY 


IF(ENDS(I.l).EG.BNDS(I,3).AND.ABS(BNDSd.l)-SURFd.l)).LT.T0L)C0 

1   TO  31 

IF(SURFd.l).LT.BNDS(I.l).0R.SURF(l,l).GE.BNDS(I,3))G0  TO  5 

B=(BND3(I»2)-BNDS(I.4))/(BNDSCI»1)-BNDS(I.3)) 
A=BNDSa«2)-B»BNDSa»l) 

SURF ( 1 , 2 ) =B«SURF ( 1 .  1) +A 
IF(SURF(1,2).GE.YMIN)G0  TO  52 
WRITE(G.llO)ERRORO) 
CALL  QUIT 


DETERMINE  DIRECTION  LIMITS  OF  FIRST  SURFACE  SEGMENT 


52    IFdANGL.EQ.DGO   TO    12 

SLOPE=ATAN(B) 
33  ANG1=SL0PE-RAD5 

ANG2=-FRTYFU 

GO  TO  12 


DETERMINE  Y  COORDINATE  OF  AN  INITIATION  POINT  AT 
THE  BASE  OF  A  UERTICAL  GROUND  SURFACE  BOUNDARY 


31  SURF(l,2)=BND5d.2) 
SLOPE=PERPEN 

IF(BNDSd,4).GT.BNDS(I.2))G0  TO  32 
SURF(1.2)=BNDS(I,4) 
DENOM=BNDS( 1+1,1 )-BNDS( 1+1 , 3) 
IF(DENOM.EQ.O.  )GO  TO  34 

SLOPE=ATAN ( ( ENDS (1+1.2 ) -BNDS (1+1,4)) /DENOM ) 

32  IFdANGL.EQ.DGO   TO    12 
GO   TO   33 

34    IF(BNDS(I+1,2). 

5  CONTINUE 
12  JJ=ITN 

ANGS1=ANG1 

ANGS2=ANG2 


LT.BNDSC 1+1.4) )GO  TO  32 


GENERATE  NTRIAL  CIRCULAR  OR  IRREGULAR  SURFACES  FROM  EACH 
INITIATION  POINT  OR  NTRIAL  TOTAL  SLIDING  BLOCK  SURFACES 


23  DO  2  1=1, NTRIAL 

IF(IEXIT.EQ.2)  GO  TO  18 

TAL=TAL+1 

IFdI.LT. 11)11  =  11  +  1 


GENERATE  AND  PLOT  SURFACE 


IF(IBLK.EQ.O)CALL  RANSUF 
IF(IBLK.EQ.1.AND.IBLK2.EQ.0)CALL  BLKSUF 
IF(IBLK2.EG.1)CALL  BL0CK2 
CALL  PL0TN2 
CALL  PLT2 


PMND1G0? 
PhNDIBCH 
PANDIGOG 
PhND1G08 
RAND  16 10 
RAMD1G12 
RAND1G14 
RAND1G16 
RAND1618 
RAND1G20 
PAND1S22 
RAND1G24 
RAND1G2E 
RAND1G2B 
RAND1E30 
RAND1632 
RAND1B34 
RAND 1636 
RAND1638 
RAMD1S40 
RAND  1542 
RAND1644 
RP.ND1S46 
RAND 1548 
RAND1550 
RAHD1652 
RAND  1554 
RAHD165S 
RAND1G58 
RAND1GG0 
RAND1662 
RAND 1554 
PAND1BGG 
RAND  1658 
RAND1670 
RAND  1672 
PAND1674 
RAND  1676 
RAND1578 
PAHD1E80 
RAND  1682 
RAND  1684 
PAND1686 
RAND1G88 
RAND1690 
RAND  1 692 
RAND; 694 
PAND1696 
Phnni598 
PAMD1700 
PAND1701 
FYilirJ17fi? 
PAIUJ1703 
PAND17G4 
PAND170G 
RAND1708 
RAND1710 
RAND1712 
RAND1714 
RAND171G 
RAND1717 
RAND1718 
RAND1720 
RAND1722 
RAND1724 


Uho 


CALCULATE  FACTOR  OF  SAFETY 


C 

C 

c 

C 

c 


c 
c 
c 
c 
c 

c 
c 

c 
c 
c 
c 


CALL  EXECUT 

FSS(II)=FS 

NSURFS(II)=NSURF 


ACCUMULATE  DATA  FOR  TEH  CRITICAL  SURFACES 


DO  3  J=1,NSURF 
SURFS(J.1.II)=SURF(J,1) 
SURFSU.2.  II)=SURF(J,2) 
3  CONTINUE 

IF(II.LE.10)GO  TO  2 
IF(ISORT.EQ.l)GO  TO  10 


SORT  TEN  SURFACES 


CALL   SORT 

10  IF(FSSai).GE.FSSU0))GO  TO   11 
NS=NSURFSai) 

DO   8  J=1,NS 

SURFS f J. 1.10)=SURFS(J,1,11) 
SURFS(J,2,10)=SURF5(J,2.11) 
8  CONTINUE 

FSS(10)=FSS(11) 
N5URFS(10)=NSURFS(11) 
ISORT=0 
GO  TO  2 

11  ISORT=l 
2   CONTINUE 

IF(IBLK.EQ.l)GO   TO  24 
IF(N.LT.NIPT)GO   TO    13 
24    IFdSORT.EQ.DGO  TO  20 


SORT  TEN  SURFACES 


CALL  SORT 


PRINT  COORDINATES  OF  POINTS  DEFINING 
THE  TEN  CRITICAL  TRIAL  FAILURE  SURFACES 


18  IF(TAL.GE.IO)  GO  TO  20 
CALL  PLT4 
CALL  QUIT 
20  WRITE(S,108) 
108  FORMAT (1  HI, 9X, ^FOLLOWING  ARE  DISPLAYED  THE  TEN  MOST  CRITICAL  Or  *. 
1*THE  TRIAL*./, 10X, ^FAILURE  SURFACES  EXAMINED.   THEY  ARE  ORDERED*. 
1   *  -  MOST  CRITICAL*,/, 10X,*FIRST. *,//) 
IF(MB.EO.l)  URITE(6.113) 
113  FORMAT (1  OX, ^SAFETY  FACTORS  ARE  CALCULATED  BY  THE  MODIFIED  BISHOP*, 
1    *  METHOD.*.//) 
DO  57  K=l,10 
K2=(K/2)*2 

IFCK2.NE.K  .AND.  K.NE.l)  UIRITEC6, 135) 
135  FORMAT(lHl) 


RAND172S 

RAND  1728 

PAND1730 

RHND1732 

PAND1734 

RHHD173B 

RRND1738 

RAND1740 

RAND1742 

RAND1744 

RAND174B 

RAND1748 

RAND1750 

RAND1752 

RAND1754 

RnND175E 

RAND1753 

RAND17E0 

RAND17G2 

RAND17G4 

RAND17GG 

RAMD17G8 

RAND1770 

RAND1/72 

RAND1774 

PAND177G 

RAND1778 

RAMD1780 

RANDi782 

RAND1784 

RAND178G 

RAND 1788 

RAND1790 

RAHD1792 

RAND1794 

RAND179B 

PAMD1798 

RAND1800 

PAND1802 

RAriD1304 

RAND180E 

RAND1808 

RAND1B10 

RAND1812 

PAND1814 

RAND i 81 5 

RAND181B 

RA.ND1817 

RAND1818 

RAND1819 

RAND1820 

RAND1821 

RAND1822 

RAND1823 

RAND1824 

RAND1825 

RAND182B 

RAND1827 

RAND1828 

RAND1S29 

RAND1830 

RAND1831 

RAND1832 

RAND1833 

RAND1834 


hrjO 


N=NSURFS(K) 
HRITECS. 133)N 

133  FORMATdOX,  ^FAILURE  SURFACE  SPECIFIED  BY?!,  13. 
1    *  COORDINATE  POINTS*./". 

1    12X,  *POINT*.  6X.  ?"X-SURF;"S  6X,  *Y-SURF*.  / 
1    13X./N0.*.ex.^(FT)*.BX,*(FT)*,/) 

WRITE ( G. 132 ) ( I . SURFSC I . 1 , K ) , SURFSC I , 2, K ) . 1=1 ,N) 
132  F0RMATC12X.I3.2X.2F12.2) 

WRITECG. 134)FSSCK) 

134  FORMATC//,10X.*««»  *,F15.3,*  ••«*,///) 
5?  CONTINUE 

CALL  NUMBER  ( 1 .5. G. 0, 0. 1 , TAL, 0. , 2HI4) 

CALL  SYMBOL  (2. 0. G. 0. 0. 1. 28HSURFACES  HAUE  BEEN  GENERATED, 
CALL  PLT3 
CALL  PLT4 
CALL  PLOTIN 
CALL  PL0TN3 
CALL  SYMBOL 
1.0., 38) 
CALL  SYMBOL  ( 1 .5. 5.7, 0. 1, 2GHMINIMUM  FACTOR  OF  SAFETY  =,0 
CALL  NUMBER  ( 3.8. 5.7. 0 . 1 . FSSC 1 ) , 0. .  4HF7.3) 
ISEARC=0 
ICIRC=0 
IBLK=0 
IBLK2=0 
MB=0 
IEXIT=0 
RETURN 
END 


(1.5,G.0,0.1,38H10  MOST  CRITICAL  OF  SURFACES 


RAHD 
PAHD 
RAND 
RAHD 
RAND 
RAND 
RAND 
RAND 
RAND 
RAHD 
RAND 
RAND 

0..28)  RAND 
RAND 
RAHD 
RAHD 
RAHD 

GENERATEDRAHD 
RAHD 


■  26) 


RAHD 
RAHD 
RAHD 
RAHD 
RAHD 
RAHD 
RAHD 
RAHD 
RAHD 
RAHD 


183E 

1338 

1840 

1842 

1844 

184G 

1848 

1850 

1852 

1854  - 

185G 

1859 

I860  - 

18G1 

1662 

18G3 

1864 

1865  t 

1866 

1867 

1868  L 

1869 

1870 

1B71 

1872  - 

1873  - 

1874  - 
1375 
1876 


1«5J 


SUBROUTINE  RANSUF  RANS   2 

c        RAMS        g 

C  SUBROUTINE   PANSUF  RANS        8 

c        pfirHS      10 

C        PANS      12 

C  RANS   14 

C   FUNCTIONS  -  PANS   IE 

X  •  RANS   IB 

C  GENERATES  TRIAL  FAILURE  SURFACES  OF  CIRCULAR  RANS   20 

C  OR  IRREGULAR  SHAPE  BY  A  RANDOM  TECHNIQUE.  RAMS   22 

C  PANS   24 

C  RANS   28 

C   DEFINITIONS  -  .  PAHS  30 

C  PANS   32 

CAY  INTERCEPT  OF  THE  PERPENDICULAR  BISECTOR  OF  THE  RAMS   34 

C  INITIAL  LINE  SEGMENT  GENERATED  FOR  A  CIRCULAR  PANS   3S 

C  TRIAL  FAILURE  SURFACE.  RANS   38 

C  PAHS   40 

C  AB        Y  INTERCEPT  OF  THE  PERPENDICULAR  EISECTDP  OF  A  LINE  PANS   42 

C  SEGMENT  WHOSE  END  POINTS  ARE  THE  LEFT  TERMINATION  FANS   44 

C  LIMIT  AT  THE  GROUND  SURFACE  AND  THE  RIGHT  END  POINT  RANS   45 

C  OF  THE  INITIAL  LINE  SEGMENT  OF  A  CIRCULAR  TPIAL  RANS   48 

C  FAILURE  SURFACE.  RANS   50 

C  RANS   52 

C  AE        Y  INTERCEPT  OF  THE  PERPENDICULAR  BISECTOR  OF  A  LINE  RANS   54 

C  SEGMENT  WHOSE  END  POINTS  APE  THE  RIGHT  TERMINhTION  RANS  5B 

C  LIMIT  AT  THE  GROUND  SURFACE  AND  THE  RIGHT  END  POINT  RANS   58 

C  OF  THE  INITIAL  LINE  SEGMENT  OF  A  CIRCULAR  TRIAL     ■  PANS   GO 

C  FAILURE  SURFACE.  RANS   G2 

C  RANS   64 

C  ANCLMT    THE  MINIMUM  INCLINATION  ALLOWED  FOR  A  GENERATED  RANS   Go 

C  •  .TRIAL  FAILURE  SURFACE.  RANS   G8 

C  RANS   ?0 

C  ANGS1     COUNTERCLOCKWISE  DIRECTION  LIMIT.  WHICH  MAY  BE  RAMS   72 

C  MODIFIED  DUPING  GENERATION  OF  SURFACES  FROM  A  RANS   74 

C  PARTICULAR  INITIATION  POINT.  AT  WHICH  INITIAL  LINE  RANS   7G 

C  SEGMENT  OF  A  TRIAL  FAILURE  SURFACE  MAY  PROJECT.  PANS   78 

C  RHNS  80 

C  ANGS2     CLOCKWISE  D1PECTION  LIMIT.  WHICH  MAY  BE  MODIFIED  PANS   C2 

C  DUPING  GENERATION  OF  SURFACES  FROM  A  PARTICULAR  PANS   84 

C  INITIATION  POINT,  AT  WHICH  INITIAL  LINE  SEGMENT  OF  A  FANS   8G 

C  TRIAL  FAILURE  SURFACE  MAY  PROJECT.  RANS   88 

C  RANS   90 

C  ATAN      STANDARD  FUNCTION  THAT  CALCULATES  THE  ARCTANGENT  OF  ARANS   32 

C  NUMBER.  RANS   94 

C  P  A  M  5   9  £ 

C  B         SLOPE  OF  THE  PERPENDICULAR  BISECTOR  OF  THE  INITIAL  RANS   58 

C  LINE  SEGMENT  GENERATED  FOR  A  CIRCULAR  TRIAL  FAILURE  RANS  100 

C  SURFACE.  RANS  102 

C  RANS  104 

C  BB        SLOPE  OF  THE  PERPENDICULAR  BISECTOR  OF  A  LINE  SEGMENTPANS  10G 

C  WHOSE  END  POINTS  ARE  THE  LEFT  TERMINATION  LIMIT  AT  RANS  108 

C  THE  GROUND  SURFACE  AND  THE  RIGHT  END  POINT  Or  THE  RANS  110 

C  INITIAL  LINE  SEGMENT  OF  A  CIRCULAR  TRIAL  FAILURE  RANS  112 

C  SURFACE.  RANS  114 

C  RANS  116 

C  BE        SLOPE  OF  THE  PERPENDICULAR  BISECTOR  OF  A  LINE  SEG'IENTRANS  113 

C  WHOSE  END  POINTS  ARE  THE  RIGHT  TERMINATION  LIMIT  AT  RANS  120 

C  THE  GROUND  SURFACE  AND  THE  RIGHT  END  POINT  OF  THE  RANS  122 

C  INITIAL  LINE  SEGMENT  OF  A  CIRCULAR  TRIAL  FAILURE  RANS  124 

C  SURFACE.  RANS  126 

C  RhNS  128 

C  BNDS      AN  ARRAY  OF  THE  END  COORDINATE  POINTS  DEFINING  THE  RANS  130 

C  GROUND  SURFACE  AND  SUBSURFACE  BOUNDARIES.  RANS  132 

C  RANS  134 


U52 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


BPT 

COS 

DTHETA 

EPT 

ERROR 
FRTYFU 

I 
IANGL 

ICIRC 

II 
ILIMIT 

I  NTS 

IMTSCT 

ITN 

J 
JJ 

JT 

JTN 
JTT 

K 

L 
LIMIT 


POSITION  Oh  GROUND  SURFACE  WHICH  EACH  TPIAL  SURFACE 
MUST  EXCEED  WHEN  IT  TERMINATES. 


STANDARD 
ANGLE. 


FUNCTION  THAT  CALCULATES  THE  COSINE  OF  AM 


CHANGE  IN  DIRECTION  BETWEEN  TWO  ADJACENT  LINE 
SEGMENTS  OF  A  CIRCULAR  TRIAL  FAILURE  SURFACE. 

POSITION  ON  GPOUND  SURFACE  WHICH  EACH  TRIAL  SLRFA 
MUST  NOT  EXCEED  WHILE  BEING  GENERATED. 

UARIABLE  REPRESENTING  CURRENT  ERROR  CODE. 

45  DEGREES  IN  RADIANS. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 


CONTROL  CODE  SIGNALS  WHETHER  TRIAL  SUR 
ANGLES  HAUE  BEEN  SPECIFIED  OR  NOT. 


"ACE 


PANS 
PANS 
PANS 
PANS 
PANS 
RANS 
PANS 
PANS 
RANS 
PANS 
RANS 
PANS 
RANS 
RANS 
RHNS 
RANS 
RANS 
RANS 
INITIATIONRANS 
RANS 


CONTROL  CODE  WHICH 
CIRCULAR  SURFACE. 


ACTIUATES  GENERATION  OF  A 


INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF 
AFFECTED  BY  SEARCHING  LIMITS  ESTABLISHED 
SUBROUTINE  LIMITS. 


THE 
BY 


FROGRAM 


CONTROL  CODE 
HAS  OCCURRED 


WHICH  SIGNALS 
OR  NOT. 


WHETHER  AN  INTERSECTION 


SUBROUTINE  WHICH  DETERMINES  WHETHER  OP  NOT  TUO  LINE 
SEGMENTS  INTERSECT  AND  CALCULATES  THE  COORDINATES  OF 
THE  INTERSECTION. 

UARIABLE  USED  TO  TEMPOPPPY  STOPE  THE  UALUE  OF  AN 
INDEX  UARIABLE  USED  FOR  ARRAY  SUBSCRIPTING. 


INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 


SUBSCRIPT  OF 
Y-COORDINATE 
SURFACE. 


LAST  GROUND  SURFACE  BOUNDARY  USED  FCR 
CALCULATION  OF  THE  INITIATION  OF  A 


PANS 

RANS 

PANS 

PANS 

PANS 

RANS 

RANS 

PANS 

RANS 

PANS 

PANS 

RANS 

PANS 

RANS 

RONS 

RANS 

PANS 

JUL76EB0 

JUL76EB0 

JUL76EBCJ 

RANS  216 

PANS 

RANS 


136 
138 
MO 
142 

145 

148 

150  . 

152 

154 

156 

158 

160 

162 

164 

1E6 

168 

170 

172 

174 

17S_ 

184 

185 

188 

180 

192 

194 

196 

138 

200 

202 

204 

206 

208 

210 

212 

214 


SUBSCRIPT 
CHECK  FOR 


OF 

AN 


THE  LAST  GROUND  SURFACE 
INTERSECTION  OF  A  TRIAL 


WITH  THE  DEFINED  GROUND  SURFACE. 


TRIALRANS 

RANS 

RANS 

BTJNDhKr'  USED  TORANS 

FAILURE  SURFACE  RANS 

RANS 


UARIABLE  USED  TO  TEMPORARY  STORE  THE  UALUE  OF  AN 
INDEX  UARIABLE  USED  FOR  ARRAY  SUBSCRIPTING. 

SUBSCRIPT  OF  THE  LAST  GROUND  SURFACE  BOUNDARY  USED 
CHECK  FOR  AN  INTERSECTION  OF  A  REDEFINED  TRIAL 
FAILURE  SURFACE  WITH  THE  GROUND  SURFACE. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTS 
DEFINING  EACH  BOUNDARY  USED  TO  CONFINE  THE  EXTENT  OF 
SEARCHING  BY  BLOCK.  RANDOM  AND  CIRCLE. 

INDEX  UARIABLE  FOP  ARRAY  SUBSCRIPTING. 


218 
220 
222 
224 
226 
228 
230 
232 
RANS  234 
JUL76EE0 
JUL76EB0 
JL'L76EB0 
TORANS  235 
RANS 
RANS 
RANS 
RANS 
RANS 

JUL76EB0 
JUL76EB0 
PANS  24S 
RANS  250 
PANS  252 
RANS  254 
JUL7GEE0 
JUL7GEB0 


238 
240 
242 
244 
246 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


NLIMIT 
NLMT 

NR 

NRR 

NSURF 
MTOP 
PERPEN 
PLT4 


QUIT 


RANF 


RB 


RBX 


RBY 


RE 


REX 


REV 


SIN 


NUMBER  OF  CONFINING  BOUNDARIES  SPECIFIED. 

NUMBER  OF  SURFACE  GENERATION  LIMIT  BOUNDARIES  WHICH 
DEFLECT  GENERATED  SURFACES  UPWARD. 

TOTAL  NUMBER  OF  REJECTIONS  WHILE  ATTEMPTING  TO 
GENERATE  A  TRIAL  FAILURE  SURFACE. 

NUMEEP  OF  REJECTIONS  WHILE  ATTEMPTING  TO  GENERATE 
A  CIRCULAR  SURFACE  FROM  THE  SECOND  LINE  SEGMENT 
WHEN  CONFLICT  OCCURES  WITH  RESTRICTIONS  ON  MINIMUM 
ELEUATION  AND  OUERTURNING  SLIP  SURFACE. 

NUMBER  OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 

NUMBER  DF  GROUND  SURFACE  BOUNDARIES. 

SO  DEGREES  IN  RADIANS. 

ENTRY  OF  SUBROUTINE  PLTN  WHICH  STORES  THE  PROFILE 
GEOMETRY  AND.  IF  APPLICABLE.  THE  WATER  SURFACE. 
SURFACE  GENERATION  BOUNDARIES.  SURCHARGE  BOUNDARY 
LOADS  AND  A  SPECIFIED  TRIAL  FAILURE  SURFACE.  PLT4 
THEN  PRINTS  THE  ENTIRE  ARRAY  AND  ITS  AXIS  LAELES. 

SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE. 


PANS  260 
RANS  262 
PANS  2E4 
RANS  2EE 
PANS  2E8 
RAMS  270 
RANS  272 
RAN5  274 
RANS  27S 
JUL7EEE0 
JUL7GEB0 
JUL7SEB0 
RANS  282 
RANS  284 
PANS  28E 
PANS  288 
RANS  290 
RANS  292 
PANS  294 
RANS  296 
RAMS  298 
RANS  300 
PANS  302 
RANS  304 
RANS  30G 
RANS  308 


TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE  PANS  310 


PROGRAM. 

FUNCTION  SUBPROGRAM  THAT  GENERATES  A  P5EUDC-RANDGM 
NUMBER  THAT  HAS  A  UNIFORM  PROBABILITY  OF  HAUING  ANY 
UALUE  RANGING  FROM  ZERO  TO  ONE. 

PADIUS  OF  A  CIRCLE  CONTAINING  THE  LEFT  TERMINATION 
LIMIT  AT  THE  GROUND  SUPFACE  AND  BOTH  END  POINTS  OF 
THE  INITIAL  LINE  SEGMENT  GENERATED  FOP  A  CIRCULAR 
TRIAL  FAILURE  SURFACE. 


RANS  312 
RANS  314_ 
RANS  320 
RANS  322 
RANS  324 
RANS  32B 
RANS  328 
PANS  330 
RANS  332 


X  COORDINATE  OF  THE  CENTER  OF 


RANS  334 
PANS  33G 
A  CIRCLE  CONTAINING  THEPANS  338 


LEFT  TERMINATION  LIMIT  AT  THE  GROUND  SUPFACE  AND 


PANS  340 


EOTH  END  POINTS  OF  THE  INITIAL  LINE  SEGMENT  GENERATEDRANS  34? 
FOR  A  CIRCULAR  TRIAL  FAILURE  SURFACE.  RANS  344 

RANS  34G 
Y  COORDINATE  OF  THE  CENTER  OF  A  CIRCLE  CONTAINING  THEPANS  348 
LEFT  TERMINATION  LIMIT  AT  THE  GROUND  SURFACE  AND  RANS  350 
BOTH  END  POINTS  OF  THE  INITIAL  LINE  SEGMENT  GENERATEDRANS  352 

RANS  354 
RANS  356 
RANS  358 
RANS  360 
RANS  362 
RANS  364 


FOR  A  CIRCULAR  TRIAL  FAILURE  SURFACE. 


RADIUS  OF  A  CIRCLE  CONTAINING  THE  RIGHT  TERMINATION 
LIMIT  AT  THE  GROUND  SURFACE  AND  BOTH  END  POINTS  OF 
THE  INITIAL  LINE  SEGMENT  GENERATED  FOR  A  CIPCULAR 
TRIAL  FAILURE  SURFACE. 

RAMS  3BG 
X  COORDINATE  OF  THE  CENTER  OF  A  CIRCLE  CONTAINING  THERANS  368 
RIGHT  TERMINATION  LIMIT  AT  THE  GROUND  SURFACE  AND  RANS  370 
BOTH  END  POINTS  OF  THE  INITIAL  LINE  SEGMENT  GENERATEDRANS  372 
FOR  A  CIRCULAR  TRIAL  FAILURE  SURFACE.  RANS  374 

RAMS  37" 
Y  COORDINATE  OF  THE  CENTER  OF  A  CIRCLE  CONTAINING  THERANS  378 
RIGHT  TERMINATION  LIMIT  AT  THE  GROUND  SURFACE  AND  PANS  380 
BOTH  END  POINTS  OF  THE  INITIAL  LINE  SEGMENT  GENERATEDRANS  382 
FOR  A  CIRCULAR  TRIAL  FAILURE  SURFACE.  RANS  384 

FANS  3E6 
STANDARD  FUNCTION  THAT  CALCULATES  THE  SINE  OF  AN  PANS  388 
ANGLE.  RAHS  390 

RANS  392 


l4  5'l 


c 

SLPB 

SLOPE  OF  A  LIME  SEGMENT  UHOSE  END  POINTS  APE  THE 

FANS  394 

c 

LEFT  TERMINATION  LIMIT  AT  THE  GROUND  SURFACE  AND  THE 

RAMS  39B 

c 

RIGHT  END  POINT  OF  THE  INITIAL  LINE  SEGMENT  OF  A 

PANS  396 

c 

CIRCULAR  TRIAL  FAILURE  SURFACE. 

PANS  400 

c 

RAMS  402 

c 

5LPE 

SLOPE  OF  A  LINE  SEGMENT  UHOSE  END  POINTS  APE  THE 

PANS  404 

c 

RIGHT  TERMINATION  LIMIT  AT  THE  GROUND  SURFACE  AND  THERANS  406 

c 

RIGHT  END  POINT  OF  THE  INITIAL  LINE  SEGMENT  OF  A 

PANS  408 

c 

CIRCULAR  TRIAL  FAILURE  SURFACE. 

RAMS  410 

c 

RANS  412 

c 

SORT 

STANDARD  FUNCTION  FOR  CALCULATION  OF  THE  SQUAPE  ROOT 

PANS  414 

c 

OF  A  NUMBER. 

RANS  41G 

c 

RANS  418 

c 

SURF 

ARRAY  CONTAINING  THE  X  AND  Y  COORDINATES  OF  POINTS 

RANS  420 

c 

DEFINING  A  TRIAL  FAILURE  SURFACE. 

RANS  422 

c 

PANS  424 

c 

TAN 

STANDARD  FUNCTION  THAT  CALCULATES  TANGENS  OF  PN 

PANS  432 

c 

ANGLE. 

PANS  434 

c 

PANS  43G 

c 

THET 

ANGLE  AT  WHICH  A  LINE  SEGMENT  OF  A  CIRCULAR  SURFACE 

RANS  438 

c 

INTERSECTED  A  SURFACE  GENERATION  BOUNDARY. 

RANS  440 

c 

RANS  442 

c 

THETA 

DIRECTION  OF  LAST  LINE  SEGMENT  DEFINING  THE  TRIAL 

RANS  444 

c 

SURFACE. 

RANS  44E 

c 

PANS  448 

c 

THETAB 

MAXIMUM  CHANGE  IN  DIRECTION  ALLOWED  BETWEEN  ADJACENT 

RANS  450 

c 

LINE  SEGMENTS  OF  A  CIRCULAR  TRIAL  FAILURE  SURFACE 

RANS  452 

c 

WITH  A  PARTICULAR  INITIAL  LINE  SEGMENT. 

PANS  454 

c 

PANS  45S 

c 

THETAE 

MINIMUM  CHANGE  IN  DIRECTION  ALLOWED  BETWEEN  ADJACENT 

PANS  453 

c 

LINE  SEGMENTS  OF  A  CIRCULAR  TRIAL  FAILURE  SURFACE 

PANS  4G0 

c 

WITH  A  PARTICULAR  INITIAL  LINE  SEGMENT. 

PANS  4G2 

c 

PANS  464 

c 

THETAL 

MINIMUM  INCLINATION  ALLOWED  FOR  A  PARTICULAR  LINE 

RANS  466 

c 

SEGMENT  OF  AN  IRREGULAR  TRIAL  FAILURE  SURFACE. 

PANS  4G3 

c 

PANS  470 

c 

THETAS 

INCLINATION  OF  THE  INITIAL  LINE  SEGMENT  OF  A  TRIAL 

RANS  472 

c 

FAILURE  SURFACE. 

PANS  474 

c 

RANS  47G 

c 

THETAU 

MAXIMUM  INCLINATION  ALLOWED  FOR  A  PARTICULAR  LINE 

PANS  478 

c 

SEGMENT  OF  AN  IRREGULAR  TRIAL  FAILURE  SURFACE. 

RANS  480 

c 

RAMS  482 

c 

THETA1 

ANGLE  SPREAD  UITHIN  WHICH  THE  NEXT  LINE  SEGMENT  OF 

RANS  484 

c 

THE  GENERATING  TRIAL  SURFACE  MAY  PROJECT. 

RANS  485 

c 

RANS  4E8 

c 

THETA2 

LIMITING  ANGLE  IN  CLOCKWISE  DIRECTION  AT  UHICH  NEXT 

RANS  490 

c 

LINE  SEGMENT  MAY  PROJECT. 

RANS  492 

c 

PANS  494 

c 

TOL 

TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MPCHINE  ROUNDING. 

RANS  495 

c 

RANS  498 

c 

TSURF 

LENGTH  OF  LINE  SEGMENTS  DEFINING  TRIAL  SURFACES. 

RANS  500 

c 

RANS  502 

c 

TT 

TANGENT  OF  THE  INCLINATION  OF  THE  INITIAL  LINE 

RANS  504 

c 

SEGMENT  OF  A  TRIAL  FAILURE  SURFACE. 

RANS  506 

c 

RANS  508 

c 

X 

X  COORDINATE  OF  THE  MIDPOINT  OF  THE  INITIAL  LINE 

RANS  51S 

c 

SEGMENT  OF  A  TRIAL  FAILURE  SURFACE. 

RANS  518 

c 

RANS  520 

c 

XE 

X  COORDINATE  OF  THE  MIDPOINT  OF  A  LINE  SEGMENT  WHOSE 

RANS  522 

c 

END  POINTS  ARE  THE  LEFT  TERMINATION  LIMIT  AT  THE 

RANS  524 

c 

GROUND  SURFACE  AND  THE  RIGHT  END  POINT  OF  THE  INITIALRANS  525 

c 

LINE  SEGMENT  OF  A  CIRCULAR  TRIAL  FAILURE  SURFACE. 

RANS  523 

c 

RANS  530 

c 

XE 

X  COORDINATE  OF  THE  MIDPOINT  OF  A  LINE  SEGMENT  WHOSE 

PANS  532 

c 

END  POINTS  ARE  THE  RIGHT  TERMINATION  LIMIT  AT  THE 

RANS  534 

c 

GROUND  SURFACE  AND  THE  RIGHT  END  POINT  OF  THE  INITIALRANS  53S 

c 

LINE  SEGMENT  OF  A  CIRCULAR  TRIAL  FAILURE  SUPFACE. 

RANS  538 

c 

RANS  540 

1*55 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


XINT 
Y 

YB 

YBPT 
YE 

YEPT 

YINT 
YMAX 

YMIN 


X-COORDINATE  OF  INTERSECTION  OF  TUO  LINE  SEGMENTS. 


Y  COORDINATE 
SEGMENT  OF  A 


OF  THE  MIDPOINT  OF  THE  INITIAL  LINE 
TRIAL  FAILURE  SURFACE. 


RAMS 
RAMS 
PANS 
PANS 
PANS 
PANS 
PANS 


Y  COORDINATE  OF  THE  MIDPOINT  OF  A  LIN*"  SEGMENT  UH3SE 
END  POINTS  APE  THE  LEFT  TERMINATION  LIMIT  AT  THE 
GPOUND  SURFACE  AND  THE  RIGHT  END  POINT  OF  THE  INITIALPAhS 
LINE  SEGMENT  OF  A  CIRCULAR  TRIAL  FAILURE  SURFACE.     PAHS 

RANS 

Y  COORDINATE  OF  LEFT  TERMINATION  LIMI 
SURFACE. 


SURFACE. 
AT  THE  CPOUND 


PANS 
PANS 
RANS 
PANS 
PANS 


Y  COORDINATE 
SURFACE. 


Y-COORDINATE  OF  INTERSECTION  OF  TUO  LINE  SEGMENTS. 

GENERATION  BOUNDARY  WITH  THE 


END  POINT 
MAXIMUM  Y 


OF  SURFACE 
COORDINATE. 


LOWEST  DEPTH  TO  WHICH  A  TRIAL  SURFACE  MAY  EXTEND. 


Y  COORDINATE  OF  THE  MIDPOINT  OF  A  LINE  SEGMENT  WHOSE 
END  POINTS  ARE  THE  RIGHT  TERMINATION  LIMIT  AT  THE 
GPOUND  SURFACE  AND  THE  RIGHT  END  POINT  OF  THE  INITIALING 
LINE  SEGMENT  OF  A  CIRCULAR  TRIAL  FAILURE  SURFACE.     PANS 

PANS 
OF  RIGHT  TERMINATION  LIMIT  AT  THE  GPOUNDPANS 

RANS 
RANS 
RANS 

rhns 

RANS 
RANS 
PANS 
PANS 
RANS 

—  PANS 

--PANS 
RAMS 
RANS 
PANS 

.  RANS 
RANS 
RANS 
RANS 

J, RANS 
RANS 
RANS 
RANS 
PANS 
RANS 
RANS 
RANS 
RANS 
RAMS 
RANS 
RANS 
RANS 
RANS 
RANS 
'PANS 
RANS 
RANS 
PANS 
RANS 
RANS 
RAMS 
PhNS 
PANS 
PANS 


COMMON  /BLK01/IANGL, I  ELK, IEXIT. ICIRC. ILIMIT, IPLOT, IPEAD. ISEAPC. 
1         IBLK2. ISOIL. ISTR, ISURC.I5UPF. 1WAT.RD.TOL 

COMMON  •BLK02/BNTJSC 1  00.  4  > ,  C(?0  ) .  GAMMA  (20  ) .  GSATC20  ) .  ITPU  00  ) .  NBND 
1  NSOIL.NTOP.PHI(20),RU(20).CU(20),NP(20) 

COMMON  /BLK05/NSURF,SURF(100,2) 

COMMCN  /BLK0G/LiniTC20.4i.NLIMIT,NLMT 

COMMON  /BLK12/ANGS1 . ANGS2. BPT.  EPT,  FRTYFU,  FS.  FSSC12 ) .  JJ.  N5URFSC 12 
1  PERPEN, SURFS (100. 2. 12). TSURF, YBPT, YEPT. YMIN 

DIMENSION  ERR0P(4) 

DATA  ERROR/4HRC10.4HRC11.4HBK09.4HBK10/ 

REAL  LIMIT 

NR=0 


ESTABLISH  MINIMUM  SLOPE  OF  FAILURE  SURFACE 


ANGLMT=-FRTYFU 

IF(IANGL.EQ.1.AND.ANGS2.LT.ANGLMT)ANCLMT=ANGS2 

3  IF(NR.GE.200)GO  TO  13 

NR=NR+1 

C 

c   

C   DETERMINE  DIRECTION  OF  INITIAL  SEGMENT  AND  CALCULATE 

C   COORDINATES  OF  SECOND  POINT  FOR  CIRCULAR  OR  IRREGULAR  SURFACE 
c   

C 

THETA=ANGS1-(ANGS1-ANGS2)«(1.-RANF(0.)«*2) 
SURF (2,1) =SURF (1,1) +TSURF»COS ( THETA ) 
SURF(2,2;=SURF(1.2)+TSURF«SIN(THETA) 


542 
54  4_ 

558 

5E0 

5E2 

5G4 

5EE 

5BB 

570 

572 

574 

57£ 

573 

580 

582 

584 

58B 

588 

53  0 

5S2 

594 

595 

598_ 

BOG 

bos 

E10 

B12 

E14_ 

G22 

E24 

G2E 

E28 

E30 

E32 

B34 

E3G 

638 

B40 

B42_ 

B4B 

G48 

E50 

652 

E54 

65B 

B58 

660 

6G2 

6B4 

BBS 

B68 

670 

672 

B74 

B7B 

678 

B60 

B82 

B84 

B86 

688 

B90 


I456 


c 
c 
c 
c 


CHECK  FOR  GROUND  SURFACE  INTERSECTION 


DO  2  I=JJ,NTOP 

CALL  INTSCTCBNDS(Iil)»BNDS(It2)»BNDSCI.3).BNDS(If4)fSURF(l.l)t 

1    SURF ( 1, 2 ), SURF (2.1). SURF (2. 2). XI  NT. VINT. INTS) 
IF(INTS.EQ.O)CO  TO  2 

IF((BNDS(I, l)-SURF(l,l)).LE.TOL)GO  TO  2 
SURF(2.1)=X1NT 
C 

C    IF  INTERSECTION.  CHECK  FOR  SATISFACTION  OF  REQUIREMENTS 
C   

c 

IF(SURF(2,1).GT.BPT)G0  TO  41 

C 

c  

C  IF  INTERSECTION  IS  SHORT  OF  LEFT  TERMINATION 

C  LIMIT.  CHANGE  COUNTERCLOCKWISE  DIRECTION 

C  LIMIT  FOR  GENERATION  OF  FIRST  LINE  SEGMENT 

c  

C 

ANGS1=THETA 
GO  TO  3 
41  IF(SURF(2,1).LT.EPT)G0  TO  42 


IF  INTERSECTION  BEYOND  RIGHT  TERMINATION 
LIMIT,  CHANGE  CLOCKWISE  DIRECTION  LIMIT 
FOR  GENERATION  OF  FIRST  LINE  SEGMENT 


ANGS2=THETA 

GO  TO  3 

42  SURF(2,2)=YINT 

K=2 

IF(ILIMIT.EQ.O)GO  TO  B 

DO  11  J=1.NLIMIT 

CALL  INTSCT(LIMIT(J. 1) . LIMIT ( J, 2 ) . LIMIT( J, 3) . LIMIT ( J, 4) , 

1    SURF (1.1), SURF (1,2), SURF (2,1), SURF ( 2. 2 ) . X I NT, Y INT , I NTS ) 

C 

c   

C  IF  LIMIT  BOUNDARY  INTEPSECTED.  DECREASE  COUNTERCLOCKWISE 

C  DIRECTION  LIMIT  IF  BOUNDARY  DEFLECTS  DOWNWARD  OR  INCREASE 

C  CLOCKWISE  DIRECTION  LIMIT  IF  BOUNDARY  DEFLECTS  UPWARD 

c  

C 

IF(INTS.EQ.0)GO  TO  11 
I F ( I . LE . NLMT ) ANGS2=THETA 
IF(I.GT.NLMT)ANGS1=THETA 
GO  TO  3 
11  CONTINUE 
GO  TO  E 
2  CONTINUE 
C 

C    IF  NO  INTERSECTION,  CHECK  FOR  SATISFACTION 

C   OF  INTERMEDIATE  REQUIREMENTS 

c   

C 

IF(SURF(2.2).GT.YMIN)G0  TO  14 
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IF  INITIAL  LINE  SEGMENT  EXTENDS  BELOU  DEPTH 
LIMIT.  CHANGE  CLOCKUISE  DIRECTION  LIMIT 


ANGS2=THETA 

GO  TO  3 
14  IF(ILIMIT.EQ.O)GO  TO  8 

DO  7  I=1,NLIMIT 

CALL  INTSCT(LIMIT(I.1),LIMIT(I,2).LIMIT(I,3).LIMIT(I.4), 
1   SURFCl,l).SURF(l»2)»SURF(2,l).SUI?F(a.2)»XINT»VINT.INTS) 

IF(INTS.EQ.0)GO  TO  7 
C 

C   

C   IF  LIMIT  BOUNDARY  INTERSECTED.  DECREASE  COUNTERCLOCKUISE 
C   DIRECTION  LIMIT  IF  BOUNDARY  DEFLECTS  DOUNUIARD  OR  INCREASE 
C   CLOCKUISE  DIRECTION  LIMIT  IF  BOUNDARY  DEFLECTS  UPWARD 
c   

C 

IF(I.LE.NLMT)ANGS2=THETA 
IF(I.GT.NLMT)ANGS1=THETA 
GO  TO  3 

7  CONTINUE 

8  K=3 
C 

C 

c 
c 
c 


c 
c 
c 
c 
c 
c 


CHECK  FOR  CIRCULAR  OR  IRREGULAR  SURFACE  GENERATION 


IF(ICIRC.EQ.0)GO  TO  18 


DETERMINE  DEFLECTION  LIMITS  FOR 
CORDS  OF  CIRCULAR  SURFACE 


THETAS=THETA 

THETAB=FRTYFU 

THETAE=TOL 

REY=l./TOL 

X=(SURF(l,l)+SURF<2.1))/2. 

Y=(SURF(l,2)+SURF(2,2))/2. 

TT=TAN(THETA) 

B=-1./TT 

A=Y~B*X 

SLPE= ( YEPT-SURF ( 2. 2 ) ) / ( EPT-SURF (2,1)) 

IF(SLPE.LE.TT)GO  TO  23 

XE=(SURF(2. 1)+EPT)/^. 

YE=(SURF(2.2)+YEPT)/2. 

BE=-1./SLPE 

AE=YE-BE«XE 

REX=(A-AE)^(BE-B) 

REY=A+B»REX 

RE=SQRT( (REX-X)«»2+(REY-Y)*»2) 

THETAE=ATAN(TSURF/RE/2. )«2. 
23  IF(BPT.LE.SURF(l,l))GO  TO  20 

SLPB=(YBPT-SURF(2.2))/'(BPT-SURFC2,1)) 

IF(SLPB.GT.TT)GO  TO  53 

ANGS 1 = ( YBPT-SURF ( 1 , 2 ) ) / ( BPT-SURF ( 1 , 1 ) ) 

GO  TO  3 
53  XB=(SURF(2.1)+BPT)/'2. 

YB=  ( SURF ( 2 . 2 ) +YBPT ) /2 . 

BB=-1./-SLPB 

AB=YB-BB«XB 

RBX=(A-ABVCBB-B) 

RBY=A+B*RBX 

RB=SQRT ( ( RBX-X )  «»2+ ( RBY-Y ) »»2 ) 

THETAB=ATAN(TSURF^RB/2. )»2. 
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DETERMINE  FOR  CIRCULAR  SURFACE  THE  DIRECTION  OF 
NEXT  SEGMENT  AND  THE  COORDINATES  OF  NEXT  POINT 


I F ( THETAE . GT . FPTYFU ) THETAB=FRTYFU 
20  REY=PEY-TSURF/2.-T0L 

NRR=0 
22   DTHETA=THETAE+aHETAB-THETAE)»RANF(0.  )••£ 
THETA=THETAS 
NRR=NRR+1 

IF(NRR.GT.20)GO   TO   3 
C 
C 
C 

c 
c 

JT=JJ 
K=3 
17  THETA=THETA+DTHETA 
C 

C   CHECK  IF  SURFACE  EXCEEDS  UERTICAL 
c   

C 

IF((THETA+TOL).LT.PERPEN)GO  TO  43 

IF(REY.GT.YEPT)GO  TO  44 
C 

C    INCREASE  CLOCKUIISE  DIRECTION  LIMIT  OF  INITIAL  LINE  SEGMENT 

C    IF  NO  SURFACE  SATISFIES  UERTICAL  SURFACE  LIMITATION 

c   

C 

ANGS2=THETAS 
GO  TO  3 

44  THETAB=DTHETA 
GO  TO  22 

43  SURF(K,2)=SURF(K-1.2)+TSURF*SIN(THETA) 
IF(SURF(K.2).GT.YMIN)G0  TO  47 
THETA=THETAS 
1=3 

45  THETA=THETA+THETAB 
IF(THETA.GT.0.)GO  TO  4G 
SURF(I.21=SURFCI-1.2)+TSURF«SIN(THETA) 
IF(SURFCI,2).LT.YMIN)G0  TO  3 

1  =  1  +  1 

GO  TO  45 
4B  THETAE=DTHETA 

GO  TO  22 

47  SURF(K,1)=SURF(K-1,1)+TSURF«C0S(THETA) 

C 

c   

C 

c 
c 


CHECK  FOR  GROUND  SURFACE  INTERSECTION 


DO  48    I=JT,NTOP 
ITN=I 

IF(SURF(K-1,1).CT.BNDS(I.3))G0   TO  48 

CALL    INTSCTCBNDSCI. 1 ) , BNDS( 1 . 2) . BNDSC I, 3) , BNDSC 1 . 4 ) ,  SURFCK-1 , 
1        SURF(K-1.2).SURF(K,1),SURF(K,2).XINT,YINT,INTS) 
IFdNTS.EQ.OGO   TO  55 
SURF(K,1)=XINT 
SURF(K.2)=YINT 
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c 
c 
c 
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IF  INTERSECTION.  CHECK  FDR  SATISFACTION  OF  REQUIREMENTS 


IF(SUPF(K,l).CE.BPT)GO  TO  59 

THETA^THETAS 

II-2 

JTT=JT 
G3  11=11+1 

THETA=THETA+THETAE 

SURF(II,l)=SURF(II-l,l)+TSURF«COS(THETA) 

SURF(II,2)=SURF(II-1,2)+TSURF«SIN(THETA) 

DO  BO  J=JT7,NT0P 

JTN=J 

IF(SURF(II-1,1).GT.BNDSU,3))G0  TO  60 

CALL  INTSCT ( BNDSC  J. 1 ) , BNDSC  J. 2) . BNDSC  J. 3 ) ,  BNDS( J. 4 ) . SURF ( 1 1-1 .  1 ) . 
1    SURF(II-1,2),5URF(II, 1 ) , SURFC II , 2) , XINT. YINT,  INTS) 

IFCINTS.EQ.O)GO  TO  Bl 

IF(XINT.GT.BPT)GO  TO  B4 

ANCS1=THETAS 

GO  TO  3 
B4  THETAB=DTHETA 

GO  TO  22 
Bl  IF(SURFC lit  1). LT. BNDSC J+1.1))G0  TO  B2 
GO  CONTINUE 
62  JTT=JTN 

GO  TO  E3 
59  IF(ILIMIT.EQ.O)GO  TO  B 

DO   49   J=1,NLIMIT 

CALL    INTSCT(LIMIT(J,1),LIMIT(J.2),LIMIT(J.3),LIMIT(J,4), 
1         SURF ( K- 1. 1 ), SURF ( K-l, 2), SURF (K,l), SURF (K,  2).  XINT.  YINT.  INTS) 

IFdNTS.EQ.DGO  TO  58 
49   CONTINUE 

GO  TO  6 
55  IF(SURF(K,D.LT.BNDS(I  +  1,D)G0  TO  54 
48  CONTINUE 
54  JT=ITN 


IF  NO  INTERSECTION,  CHECK  FOR  SATISFACTION 
OF  INTERMEDIATE  REQUIREMENTS 


IF(ILIMIT.EQ.0)GO   TO  50 

DO   51    J=1,NLIMIT 

CALL    INTSCT(LIMIT(J.D.LIMIT(J.2).LIMIT(J,3),LIMIT(J,4). 
1        SURF  (K-l,  D.  SURF  ( K-l,  2 ),  SURF  CK.D.  SURF  (K,  2),  XINT,  YINT.  INTS) 

IFdNTS.EQ.DGO   TO  58 
51    CONTINUE 
50   K=K+1 


CHECK  SURFACE  POINT  STORAGE  LIMIT 


IF(K.LE.100)GO  TO  17 
URITE(6,102)ERROR(1) 
102  FORMATS,  10X,14H»**«   ERROR  -  ,A4,6H  ••+•,/) 
CALL  QUIT 
58  THETA=THETAS 
YMAX=LIMIT(J,2) 

IF(LIMIT(J,4).GT.YMAX)YMAX=LIMIT(J,4) 
11=2 

I F ( J . LE . NLMT ) THET=THETAB-TOL 
IF ( J . GT . NLMT ) THET=THETAE+TOL 
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c 
c 
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c 
c 
c 
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c 

c 
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5G  11=11+1 

THETA=THETA+THET 

SURFCII. 1)=SURF(II-1, 1)+TSURF»C0S(THETA) 

SURF(II.2)=SURF(II-1.2)+TSURF«SIN(THETA) 

CALL  INTSCT(LIMIT(J.1),LIMIT(J,2).LIMIT(J.3),LIMIT(J,4), 
1   SURF ( 1 1-1 . 1 ) . SURF ( 1 1-1.2). SURF ( 1 1 . 1) , SURFC 1 1 , 2) . XINT. YINT. 

IF(INTS.EQ.0)G0  TO  57 

IF ( J . LE . NLMT ) ANGS2=THETAS+T0L 

IFCJ.GT.NLMT)ANGS1=THETAS-T0L 

GO  TO  3 
57  IF(SURF(II-1,2).GT.YMAX.AND.THETA.CT.O.)GO  TO  B5 

GO  TO  5B 
G5  IF(J.LE.NLMT)THETAE=DTHETA 

I F ( J . GT . NLMT ) THETAB=DTHET A 

GO  TO  22 


DETERMINE  DIRECTION  LIMITS  OF  SUCCESSIUE 
SEGMENTS  FOR  IRREGULAR  SURFACE 


18  THETA2=FRTYFU«RANF(0.)»»2 

THET A 1 =THETA2+FRT YFU 
15  THETAU=THETA+FRTYFU 

THETAL=THETAU-THETA1 

I F ( ( THETAU+TOL ) . GT . PERPEN ) THETAU=PERPEN-TOL 

IF  ( THETAL .  LT .  ANGLMT )  THETAL«=ANGLMT 
C 

C   DETERMINE  DIRECTION  OF  NEXT  SEGMENT  AND 

C   CALCULATE  COORDINATES  OF  NEXT  POINT 

C   

c 

4  THETA=THETAL+ ( THETAU-THET AL ) »RANF ( 0 . ) •• (1 . +RANFC  0 . ) ) 
SURFCK. 1)=SURF(K-1,1)+TSURF«C0S(THETA) 
SURFCK, 2)=SURFCK-1,2)+TSURF»SINCTHETA) 


CHECK  IF  SURFACE  EXTENDS  BELOW  MINIMUM 


IFCSURFCK,2).GT.YMIN)G0  TO  IS 

SURFCK, 2)=SURF(K-1,2)+TSURF«SINCTHETAU) 

IF(SURF(K,2).LT.YMIN)G0  TO  3 

THETAL=THETA 

GO  TO  4 


CHECK  FOR  GROUND  SURFACE  INTLkSZCTION 


IB  DO  5  I=JJ,NTOP 

CALL  INTSCTCBNDSCI,n.BNDSCI,2),BNDSCI,3).BNDSCI.4),SURF(K-l, 
1   SURFCK-1, 2) , SURFCK, 1 ) , SURFCK. 2) , XINT,  YINT,  INTS) 
IFCINTS.EQ.OGO  TO  5 
SURFCK, 1)=XINT 
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IF  INTERSECTION,  CHECK  FOR  SATISFACTION  OF  REQUIREMENTS 


IFCSURF(K.l).LT.EPT)GO  TO  19 

SURF ( K . 1 ) =SURF ( K- 1 . 1 ) +TSURF»COS C THETAU ) 

IF(SURF(K,l).GT.EPT)GO  TO  3 

THETAL=THETA 

GO  TO  4 
19  IFCSURFCK,l).LT.BPT)GO  TO  3 

SURFCK, 2)=YINT 

IFCILIMIT.EQ.O)GO  TO  E 

DO  12  J=1,NLIMIT 

CALL  INTSCTCLIMITCJ,1),LIMITCJ.2),LIMITCJ.3),LIMITCJ,4), 
1   SURFCK-1, 1). SURFCK- 1.2), SURFCK, 1), SURFCK, 2), XINT.YINT, INTS) 

IF(INTS.EQ.O)  GO  TO  12 

IFCJ.LE.NLMT)  THETA=THETAU 

IF(J.GT.NLMT)  THETA=THETAL 

SURF  C  K . 1 ) =SURF ( K- 1 . 1 ) +TSURF*COS ( THETA ) 

SURFCK, 2)=SURF(K-1. 2 )+TSURF«SINCTHETA) 

IFCSURFCK,2).LT.YMIN)G0  TO  3 

DO  21  L=1.NLIMIT 

CALL  INTSCTCLIMITCL.1).LIMITCL.2).LIMIT(L.3).LIMITCL,4). 
1   SURFCK-1, 1).SURF(K-1, 2), SURF CK,1). SURFCK, 2), XINT.YINT. INTS) 

IFCINTS.EQ.DGO  TO  3 
21   CONTINUE 

DO  G8  N=JJ,NTOP 

CALL  INTSCT(BNDS(N,D,BNDS(N,2),BNDS(N.3).BNDSCN,4),5URF(K-1.D, 
1   SURFCK-1, 2). SURFCK, 1), SURFCK. 2), XINT.YINT. INTS) 

IF(INTS.EQ.0)GO  TO  E8 

SURF(K.1)=XINT 

SURFCK, 2)=YINT 

IFCSURFCK,D.GT.EPT)GD  TO  3 

GO  TO  E 
B8  CONTINUE 

GO  TO  9 
12  CONTINUE 

GO  TO  E 
5  CONTINUE 

IFCSURF(K,D.GT.EPT)GO  TO  3 


IF  NO  INTERSECTION,  CHECK  FOR  SATISFACTION 
OF  INTERMEDIATE  REQUIREMENTS 


IF(ILIMIT.EQ.0)GO  TO  9 

DO  10  I=1,NLIMIT 

CALL  INTSCT(LIMIT(I,1),LIMIT(I.2),LIMIT(I,3),LIMIT(I,4), 
1   SURF  CK-1. 1),  SURFCK-1, 2).  SURFCK.D.  SURFCK,  2),  XINT.YINT,  INTS) 

IF(INTS.EQ.O)GO  TO  10 

IF(I.LE.NLMT)    THETAL=THETA 

IFCI.GT.NLMT)    THETAU=THETA 

THETA=THETAL+( THETAU-THETAL )»RANF( 0 . )«• ( 1 . +RANFC  0 . ) ) 

SURFCK,  D=SURFCK-l,D+TSURF»COSCTHE7A) 

SURFCK, 2)=SURFCK-1.2)+TSURF»SINCTHETA) 

DO  SO  J=1.NLIMIT 

CALL  INTSCTCLIMITCJ.D.LIMITCJ,2),LIMIT(J.3).LIMITCJ,4), 
1   SURFCK-1, 1).  SURFCK-1, 2),  SURFCK.D,  SURFCK.  2).  XINT.YINT,  INTS) 

IFCINTS.EO.O)  GO  TO  80 

IF(J.LE.NLMT)  THETA=THETAU 

IFCJ.GT.NLMT)  THETA=7HETAL 

SURFCK. 1 )=SURF(K-1, 1 )+TSURF*COSC THETA) 

SURFCK,  2)=SURF(K-1,2)+TSURF»SINCTHETA) 

DO  81  L=1,NLIMIT 

CALL  INTSCT(LIMIT(L, 1) , LIMITCL.2),LIMITCL, 3) .LIMITCL. 4) , 
1    SURF(K-1, 1),SURF(K-1, 2), SURFCK,  1). SURFCK,  2),  XINT,YINT,  INTS) 

IFCINTS.EQ.DGO  TO  3 
81  CONTINUE 
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RANS1428 
RANS1430 
RANS1432 
RANS1434 
RANS143G 
RANS1438 
RANS1440 
RANS1442 
RANS1444 
RANS144B 
RAHS1448  -1- 
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GO  TO  82 
80  CONTINUE 
82  DO  G9  N=JJ.NTOP 

CALL  INTSCTCBNDSCN, 1 ),BNDS(N. 2).BNDS(Nt3)» BND5(N.4)»SURF(K-li 
1    SUrnK-1.2).SUPF(K.l),5URF(K.2).XINT.YINT.lNTS) 

IF(INTS.EQ.O)G0  TO  G9 

SURFCK, J) -XI NT 

SURF(K.2)=YINT 

IF(SURF(K»1).GT 

GO  TO  G 
E9  CONTINUE 

GO  TO  9 
10  CONTINUE 
9  IF(SURF(K,1).GT 

IF(SURF(K,2) 

K=K+1 


1). 


EPT)GO  TO  3 


EPT)GO 
LT.YMIN)GD 


TO  2 
TO 


C 

C 

c 
c 
c 


CHECK  SURFACE  POINT  STORAGE  LIMIT 


13 


IF(K.LE.100)GO  TO  15 

WRITECG, 102)ERR0R(1) 

CALL  QUIT 

NSURF=K 

RETURN 

WRITECG. 102)ERRORC2) 

IEXIT=2 

RETURN 

END 
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PAHS1 
RAN51 
PANS1 
RANSl 
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RANSl 
RANSl 
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RANSl 
RANSl 
RANSl 
RANSl 
RANSl 
RANSl 
RANSl 
RANSl 
RANSl 
RANSl 
RANSl 
RANSl 
RANSl 


449 

450 

452 

454 

45G 

458 

4G0 

4E2 

464 

4G6 

4G8 

4E9 

470 

472 

474  - 

475 

478 

4&0 

482 

484 

4BC 

408 

490 

492 

494 

496_ 

498  - 

502  - 

504 

50S 


U6i 


SUBROUTINE   BLKSUF 


C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


SUBROUTINE  BLKSUF 


FUNCTIONS  - 


GENERATES  TRIAL  FAILURE  SURFACES  OF  SLIDING  BLOCK 
SHAPE  BY  A  RANDOM  TECHNIQUE. 


DEFINITIONS 
'  BNDS 

COS 

ERROR 
FRTYFTJ 
I 
ILIMIT 

INTS 
INTSCT 

INTSCP 

J 

JJ 
K 
LIMIT 

NGRID 

NLIMIT 

NR 

NRR 

NSURF 
NTOP 


AN  ARRAY  OF  THE  END  COORDINATE  POINTS  DEFINING  THE 
GROUND  SURFACE  AND  SUBSURFACE  BOUNDARIES. 

STANDARD  FUNCTION  THAT  CALCULATES  THE  COSINE  OF  AN 
ANGLE. 

UARIABLE  REPRESENTING  CURRENT  ERROR  CODE. 

45  DEGREES  IN  RADIANS. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM 
AFFECTED  EY  SEARCHING  LIMITS  ESTABLISHED  BY 
SUBROUTINE  LIMITS. 

CONTROL  CODE  WHICH  SIGNALS  WHETHER  AN  INTERSECTION 
HAS  OCCURRED  OR  NOT. 

SUBROUTINE  WHICH  DETERMINES  WHETHER  OR  NOT  TWO  LINE 
SEGMENTS  INTERSECT  AND  CALCULATES  THE  COORDINATES  OF 
THE  INTERSECTION. 

ENTRY  POINT  INTO  SUBROUTINE  INTSCT  WHICH  DETERMINES 
WHETHER  OR  NOT  A  LINE  SEGMENT  AND  A  UEnTICAL  LINE 
INTERSECT  AND  CALCULATES  THE  COORDINATES  OF  THE 
INTERSECTION. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

DO  LOOP  COUNTER. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTS 
DEFINING  EACH  BOUNDARY  USED  TO  CONFINE  THE  EXTENT  OF 
SEARCHING  BY  BLOCK,  RANDOM  AND  CIRCLE. 

NUMBER  OF  GPIDS  SPECIFIED. 

NUMBER  OF  CONFINING  BOUNDARIES  SPECIFIED. 

TOTAL  NUMBER  OF  REJECTIONS  WHILE  ATTEMPTING  TC 
GENERATE  A  TRIAL  FAILURE  SURFACE. 

NUMBER  OF  REJECTIONS  WHILE  ATTEMPTING  TO  GENERATE 
EITHER  THE  PASSIUE  OR  ACTIUE  PORTIONS  OF  A  SLIDING 
BLOCK  TRIAL  FAILURE  SURFACE. 

NUMBER  OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 

NUMBER  OF  GROUND  SURFACE  BOUNDARIES. 


BLKS 

-BLKS 
-BLKS 
BLKS 
-BLKS 
-BLKS 
BLKS 
BLKS 
ELKS 
BLKS 
BLKS 
BLKS 
-BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
ELKS 
ELKS 
ELKS 
ELKS 
BLKS 
BLKS 
BLKS 
BLKS 
ELKS 
ELKS 
ELKS 
BLKS 
ELKS 
BLKS 
ELKS 
BLKS 
ELKS 
ELKS 
BLKS 
ELKS 
NOU 


2 

4 

G 

H 
10 

1? 
14 

if; 

IB 
20 
22 

24 
2E 
28 
30 
32 
34 
3E 
3S 
40 
42 
44 
46 
48 
50 
52 
54 
5C 
5B 
EO 
E? 
E4 
EB 
ES 
70 
73 
74 
7B 
78 
SEEO 


N0U7BEB0 
N0U7GEB0 
N0U7GEB0 
NOUrGEBO 
BLKS  80 
BLKS  82 
N0U7BEB0 
N0'J7EEB0 


BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
ELKS 
BLKS 
ELKS 
ELKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 
BLKS 


E4 

SB 

88 

90 

92 

34 

95 

93 

100 

102 

104 

10B 

108 

110 

112 

114 

11B 

118 

120 

122 

124 


U61i 


c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


PLT4 


QUIT 


RANF 


SIM 


SUPF 


SWITCH 


THETA 


TSURF 


WIDTH 


XINT 


XL 


XP 


YINT 


YL 


YR 


ENTRY  DF  SUBROUTINE  PLTN  WHICH  STORES  THE  PROFILE 
GEOMETRY  AMD.  IK  APPLICABLE.  THE  UATFR  SURFACE. 
SURFACE  GEMERATIOM  BOUNDARIES.  SURCHARGE  BOUMDAPY 
LOADS  AMD  A  SPECK  IED  TRIAL  FAILURE  SURFACE.  PlT4 
THEM  PRIMTS  THE  EMTIRF  ARRAY  AMD  IIS  AXIS  LAB1_ES. 


UARIABLE  CONTAIMIMG  A  PSEUDO-RANDOM  NUMBER. 

FUMCTIOM  SUBPROGRAM  THAT  GEMERATES  A  PSEUDO-RAMDOM 
MUMBEP  THAT  HAS  A  UMIFORM  PROBABILITY  OF  HAUIHG  P.NY 
UALUE  RANGING  FROM  ZERO  TO  OME. 

STAMDARD  FUMCTIOM  THAT  CALCULATES  THE  SIME  OF  AM 
AMGLE. 

ARRAY  CONTAINING  THE  X  AMD  Y  COORDIMATES  OF  POIMTS 
DEFIMIMG  A  TRIAL  FAILURE  SURFACE. 


BLKS 

BLKS 

ELKS 

BLKS 

BLKS 

BLKS 

SUEPOUTIME  THAT  DISPLAYS  A  TERMINATION  MESSAGE.      BLKS 

TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE  BLKS 

PROGRAM.  ELKS 

BLKS 
BLKS 
BLKS 
BLKS 
ELKS 
ELKS 
ELKS 
ELKS 
ELKS 
ELKS 
BLK5 
ELKS 
ELKS 
ARRAY  USED  TO  TEMPORARILY  STGRE  THE  CONTENTS  OF  ARRAYE^KS 


SURF  FOR  REORDERING. 

DIRECTION  OF  LAST  LIME  SEGMENT  DEFINING  THE  TRIAL 
SURFACE. 

LENGTH  OF  LINE  SEGMENTS  DEFINING  TRIAL  SURFACES. 

ARRAY  CONTAINING  THE  UALUES  OF  THE  WIDTH  OF  EACH 
GRID. 

X-COORDINATE  OF  INTERSECTION  OF  TWO  LINE  SECMEMTS. 

ARRAY  CONTAINING  UALUES  OF  THE  X-COORDINATE  OF  THE 
LEFT  END  OF  EACH  GRID  CENTERLINE. 

ARRAY  CONTAINING  UALUES  OF  THE  X-COOPDINATE  OF  THE 
RIGHT  END  OF  EACH  GRID  CENTERLINE. 

Y  COORDINATE  OF  UEPTICAL  INTERSECTION  OF  GROUND 
SURFACE  FROM  LAST  POINT  ON  TRIAL  FAILURE  SURFACE. 

Y-COORDINATE  OF  INTERSECTION  OF  TWO  LINE  SEGMENTS. 

ARRAY  CONTAINING  UALUES  OF  THE  Y-CDORDINATE  OF  THE 
LEFT  END  OF  EACH  GRID  CENTERLINE. 

ARRAY  CONTAINING  UALUES  OF  THE  Y-COORDINATE  OF  THE 
RIGHT  END  OF  EACH  GRID  CENTERLINE. 


COMMON  /BLK01/IANGL, IBLK, IEXIT, ICIRC. ILIMIT, IPLOT. IREAD. ISEARC- 

1        IBLK2. ISOIL.ISTR.ISURC.ISURF.IWAT.RD.TOL 
COMMON  /ELK02/EHD5(100.4),C(20),GAMMA(20),GSAT(20;,  ITP(100),NB  \T>. 

1  NSOIL,NTOP.PHI(20).RU(20).CU(20),NF(20) 

COMMON  /ELK05/NSURF.SURF( 100.2) 
COMMON  /ELK0E/LIMIT(P.0,4).NLIMIT.NLMT 
COMMON  /BLK12/AMGS1. HNGS2, EPT, EPT. FRTYFU. FS. FSS( 12 ) . JJ. NSURFSC12) t  ELKS 

1  PERFEN.SURFS(100.2.12).TSURF,YBPT.YEPT.YMIN         BLKS 

COMMON  /BLK13/NGRID.WIDTH(10),XL(10).XR(10).YL(10),YR(10:         BLKS 
DIMENSION  SWITCHC20.2),ERROR(4)  BLKS 

DATA  ERROR/4HRC10,4HRC11,4HBK09,4HBK10/  B^KS 

REAL  LINIT  B^KS 


BLKS 
BLKS 
BLKS 
ELKS 
BLKS 
BLKS 
BLKS 
ELKS 
BLKS 
BLKS 
BLKS 
B-KS 
BLKS 
BLKS 
BLKS 
ELKS 
ELKS 
ELKS 
BLKS 
ELKS 
BLKS 
ELKS 
BLKS 
BLKS 
BLKS 
BLK5 
ELKS 
BLKS 
ELKS 

BLKS 

ELKS 

BLKS 
BLKS 
BLKS 
B^KS 
ELKS 
ELKS 
BLKS 


12G 
128 
130 
132 
134 
13G 
138 
140 
142 
144 
145 
148 
150 
152 
154 
156 
158 
1G0 
1G2 
1S4 
1ES 
1G8 

iro 

172 
174 
176 
178 
180 
182 
184 

ies 

186 
190 
192 
194 
19G 
199 
200 
202 
204 
20S 
208 
210 
212 
214 
215 
218 
220 
222 
228 
230 
232 
234 
235 
238 
24  0 
242 
244 
245 
248 
250 
252 
254 
25E 
258 
260 
252  -1- 


l46b 


NR=0 

2B  J=NGRID 

C 

c   

C   DEFIME  ft  POINT  MITHIN  EACH  BOX  FOR  THE  TRIftL  SURFftCE 
c   

C 

DO  24  I=1.NGRID 

SURF (J. 1 )=XL(I)+(XR(I)-XL(I))»R 

SURFU.2)=YL(I)t-(YR(I)-YL(I))«R+UIDTH(I)«CRANF(0.)-.5) 

J=J-1 
24  CONTINUE 
C 
C 

c 
c 
c 


c 
c 
c 

c 
c 
c 


c 
c 
c 
c 

c 


c 
c 
c 
c 
c 


CHECK  IF  LftST  POINT  IS  ON  GROUND  SURFACE 


K=NGRID 

DO  GB  I=l,NTOP 

CALL  INTSC2(BNDS(I. 1 ) . BNDSC 1 . 2) . BNDS( I.  3) .  BNDS( 1 ,4 ) .  0. .  0  . .  0. .  0  . 
1SURF(K,1),Y. INTS) 

IF(INTS.EQ.O)  GO  TO  BB 

IF  (Y.EQ.SURFCK.2))  GO  TO  29 
BE  CONTINUE 

NRR=0 
25  IFCNR.GE.200)GO  TO  13 

IF(NRR.GE.20)GO  TO  2B 

NR=NR+1 

NRR=NRR+1 

K=NGRID+1 


DETERMINE  DIRECTION  OF  NEXT  SEGMENT  LEFT 
AND  CALCULATE  COORDINATES  OF  NEXT  POINT 


27  THETA=(1.-RANF(0. )««2)*FRTYFU 

SURFCK, 1)=SURF(K-1,1)-TSURF»C0S(THETA) 
SURF(K.2)=SURF(K-1.2)+TSURF«SIN(THETA) 


CHECK  FOR  GROUND  SURFACE  INTERSECTION 


I=NTOP+l 
DO  28  JJ=l.NTOP 
1  =  1-1 

CALL  INTSCT(BNDS(I.n.BNDS(I.2)»BNDS(I.3).BNDS(I,4),SURF(K.  1). 
1    SURF (K.S). SURF (K-l.l), SURF (K-l, 2 ).XINT,YINT, INTS J 
IF(INTS.EQ.0)GO  TO  28 
SURFCK. 1)=XINT 
SURFCK, 2)=YINT 


IF  INTERSECTION.  CHECK  FOR  SATISFACTION  OF  REQUIREMENTS 


IF(SURF(K.l).LT.BNDS(l,l»GO  TO  25 

IF(ILIMIT.EQ.O)GO  TO  23 

DO  30  J=1.NLIMIT 

CALL  INTSCT(LIMIT(J.:),LIMITU.2),LIMIT(J,3),LIMIT(J,4).SURF(K. 
1   SURF(K,2),SURF(K-l,l),SURF(K-lt2),XINT.YINT.INTS) 

IF(INTS.NE.O)GO  TO  25 
30  CONTINUE 

GO  TO  29 
28  CONTINUE 
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BL^S 
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364 
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3GG 

•BLKS 

368 

BLKS 

370 

BLKS 

372 

BLKS 

374 

BLKS 

376 

BLKS 

378 

BLKS 

380 

BLKS 
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BLKS 

384 

D.BLKS 

3S6 

BLKS 

388 

BLKS 

330 

ELKS 

392 

BLKS 

394 

BLKS 

396 

BLKS 

338 

U66 


c   

C    IF  NO  INTERSECTION,  CHECK  FOR  SATISFACTION 
C   OF  INTERMEDIATE  REQUIREMENTS 

C 

IF(SURF(K. D.LT.BNDSClf l))GO   TO  25 

IFCILIMIT.EQ.0jGO   TO   31 
DO   32   J=1.NLIMIT 

CALL    INTSCT(LIMIT(J,1),LIMIT(J.2).LIMIT(J.3).LIMIT(J.4).SURFCK. 
1        SURF(K,2).SURF(K-1,1).SURF(K-1.2).XINT.YINT,INTS) 
IF(INTS.NE.O)GO   TO  25 
32  CONTINUE 
31   K=K+1 
C 
C 

c 
c 
c 


1), 


CHECK  SURFACE  POINT  STORAGE  LIMIT 


IF(K.LE.IOO)  GO  TO  27 
URITET6.102)ERROR(3) 
102  FORMAT(/. 10X, 14H»»««   ERROR  -  ,A4.6H  ••••,/) 
CALL  QUIT 


C 
C 
C 
C 

C 


C 

c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


REUERSE  ORDER  OF  POINTS  GENERATED  THUS  FAR 


29  DO  33  I  =  1»K 

SWITCH(I,1)=SURF(I,1) 
SUITCH(I,2)=SURF(I,2) 

33  CONTINUE 
J=K 

DO  34  1=1. K 

SURFd.  l)=SUITCH(J.l) 

SURF(I,2)=SUITCH(J,2) 

J=J-1 

34  CONTINUE 
NSURF=K 


CHECK  IF  LAST  POINT  IS  ON  GROUND  SURFACE 


DO  B?  I=l,NTOP 

CALL  INTSC2(BND5(I.1).BNDS(I.2),BNDS(I.3).BNDS(I.4),0.,0. 
1SURF(K.  D.Y.INTS) 

IFCINTS.EQ.O)  GO  TO  G7 

IF  (Y.EQ.SURFU.2))  GO  TO  38 
6?  CONTINUE 

NRR=0 
35  IF(NR.GE.200)GO  TO  13 

IF(NRR.GE.20)G0  TO  2G 

NR=NR+1 

NRR=NRR+1 

K=NSURF 


.0. rO. 


DETERMINE  DIRECTION  OF  NEXT  SEGMENT  RIGHT 
AND  CALCULATE  COORDINATES  OF  NEXT  POINT 


3E  THETA=(1.-RANF(0.)»»2)»FRTYFU 
K=K+1 
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c 
c 
c 
c 
c 


c 

c 
c 
c 
c 
c 


CHECK  SURFACE  POINT  STORAGE  LIMIT 


IF(K.LE.IOO)  GO  TO  52 
WRITE(G.102)ERROR(3) 
CALL  QUIT 
52  SURFCK. 1)=SURFCK-1, 1)+TSURF«SINCTHETA) 
SURFCK,2)=SURF(K-1,2)+TSUPF»C0SCTHETA) 


CHECK  FOR  GROUND  SURFACE  INTERSECTION 


DO  37  I=l,NTOP 

CALL  INTSCTCBNDSCI. 1) . BNDS( I , 2) . BNDS( I. 3) , BNDSC I, 4 ) . SURF(K-1 , 1 ) , 
1    SURFCK-1,2).SURF(K,1),SURF(K,2),XINT,YINT,INTS) 
IFCINTS.EQ.O)GO  TO  37 
SURFCK. 1)=XINT 
SURFCK, 2)=YINT 


IF  INTERSECTION,  CHECK  FOR  SATISFACTION  OF  REQUIREMENTS 


IFCSURFCK.1).GT.BNDSCNT0P,3))G0  TO  35 

IF(ILIMIT.EQ.0)GO  TO  38 

DO  39  J=1,NLIMIT 

CALL  INTSCTCLIMITCJ.n,LIMITCJ,2).LIMITCJ.3).LIMITCJ,4). 
1    SURF ( K-l, 1). SURF CK-1, 2), SURF CK.l). SURFCK, 2 ) . XINT, YINT, INTS) 

IF(IMTS.NE.0)GO  TO  35 
39  CONTINUE 

GO  TO  38 
37  CONTINUE 


IF  NO  INTERSECTION,  CHECK  FOR  SATISFACTION 
OF  INTERMEDIATE  REQUIREMENTS 


IF(SURFCK,1).GT.BNDSCNT0P,3))GD   TO   35 

IFCILIMIT.EQ.OGO   TO  3S 

DO  40  J=1.NLIMIT 

CALL  INTSCT(LIMITCJ,1),LIMITCJ.2),LIMIT(J,3).LIMITCJ,4). 
1    SURF C K-l. 1 ), SURF C K-l, 2 ;, SURF CK.l). SURFCK, 2), XINT, YINT, INTS) 

IF(INTS.NE.0)GO  TO  35 
40  CONTINUE 

GO  TO  36 
38  NSURF=K 

RETURN 
13  WRITE(G,102)ERROR(4) 

IEXIT=2 

RETURN 

END 
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SUBROUTINE  BLOCKS  BK2-   2  i 

c   BK2-   6 

C  SUBROUTINE  BL0CK2                        BK2-   8 

c   BK2-   1 0 

c   BK2-   12 

C  BK2-   14 

C   FUNCTIONS  -  BK2-   IB 

C  BK2-   18 

C  GENERATES  TRIAL  FAILUPE  SURFACES  OF  SLIDING  BLOCK  SHAPE        BK2-   20 

C  BY  A  RANDOM  TECHNIQUE.  ACTIUE  AND  PASSIUE  PORTIONS  ARE         BK2-   22 

C  GENERATED  ACCORDING  TO  THE  RANKINE  THEORY.                    BK2-   24 

C  BK2-   2B 

c   . BKg_   28  V 

C  BK2-  30 

C   DEFINITIONS  -  BK2-  32 

C  BK2-   34 

C  BNDS      AN  ARRAY  OF  THE  END  COORDINATE  POINTS  DEFINING  THE   BK2-   36 

C  GROUND  SURFACE  AND  SUBSURFACE  BOUNDARIES.            BK2-   38 

C  BK2~   40 

C  COS       STANDARD  FUNCTION  THAT  CALCULATES  THE  COSINE  OF  AN   BK2-   42 

C  ANGLE.                                            BK2-   44 

C  BK2-   4G 

C  ERROR     UARIABLE  REPRESENTING  CURRENT  ERROR  CODE.           BK2-  48 

C  EK2-   50 

C  FRTYFU    45  DEGREES  IN  RADIANS.                            BK2-  52 

C  BK2-  54 

C  I         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               BK2-   5G 

p  EK2-   58 

C  INTS      CONTROL  CODE  WHICH  SIGNALS  WHETHER  AN  INTERSECTION   BK2-   GO 

C  HAS  OCCURRED  OR  NOT.                               BK2-   G2 

C  BK2-   G4 

C  INTSCT    SUBROUTINE  WHICH  DETERMINES  WHETHER  OP  NOT  TWO  LINE   EK2-   GG 

C  SEGMENTS  INTERSECT  AND  CALCULATES  THE  COORDINATES  OF  BK2-   G8 

C  THE  INTERSECTION.                                  BK2-   70 

C  BK 2-   72 

C  INTSC2    ENTRY  POINT  INTO  SUBROUTINE  INTSCT  WHICH  DETERMINES   BK2-   74 

C  WHETHER  OR  NOT  A  LINE  SEGMENT  AND  A  UERTICAL  LINE    BK2-   7G 

C  INTERSECT  AND  CALCULATES  THE  COORDINATES  OF  THE      BK2-   78 

C  INTERSECTION.                                     BK2-   80 

C  BK2-   82 

C  ITP       ARRAY  CONTAINING  SOIL  TYPE  INDICES  FOR  EACH  BCUNDARY. BK2-   84 

C  BK2-   8G 

C  J         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               EK2-   68 

C  BK2-   90 

C  JAB       SUBSCRIPT  OF  THE  LAST  PROFILE  BOUNDARY  USED  TO  CHECK  BK2-  100 

C  FDR  INTERSECTION  WITH  THE  LAST  LINESECMENT  GENERATED  BK2-  102 

C  ON  THE  ACTIUE  PORTION  OF  THE  TRIAL  FAILURE  SURFACE.   BK2-  104 

C  BK2-  106 

C  JJ        INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               BK2-  108 

C  BK2-  110 

C  JP        SUBSCRIPT  OF  THE  LAST  PROFILE  BOUNDARY  USED  TO  CHECK  BK2-  112 

C  FOR  INTERSECTION  WITH  UERTICAL  LINE  THROUGH  THE  LAST  BK2-  114 

C  POINT  GENERATED  ON  THE  TRIAL  FAILURE  SURFACE.        BK2-  11G 

C  BK2-  118 

C  JPB       SUBSCRIPT  OF  THE  LAST  PROFILE  BOUNDARY  USED  TO  CHECK  BK2-  120 

C  FOR  INTERSECTION  WITH  THE  LAST  LINESEGMENT  GENERATED  BK2-  122 

C  ON  THE  PASSIUE  PORTION  OF  THE  TRIAL  FAILURE  SURFA3E.  EK2-  124 

C  BK2-  126 

C  K         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.              BK2-  128 

C  BK2-  130 

C  M        CONTROL  NUMBER  FOR  ERROR  CODE  IN  SUBROUTINE  BL0CK2   AUG7SEB0 

C  AUG7GEB0 

C  NBND      TOTAL  NUMBER  OF  PROFILE  BOUNDARIES.                 BK2-  132 

C  BK2-  134 

C  NGRID     NUMBER  OF  GRIDS  SPECIFIED.                        BK2-  13G 

C  BK2-  138 


U69 


c 

NR 

TOTAL  MUMBEP  OF  REJECTIONS  WHILE  ATTEMPTING  TO 

BK2- 

140 

c 

GENERATE  A  TRIAL  FAILURE  SURFACE. 

BK2- 

142 

c 

BK2- 

144 

c 

NSURF 

NUMBER  OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 

W2- 

14G 

c 

BK2- 

148 

c 

NTOP 

NUMBER  OF  GROUND  SURFACE  BOUNDARIES. 

BK2- 

150 

c 

BK2- 

152 

c 

PHI 

ARRAY  CONTAINING  ISOTROPIC  UALUES  OF  THE  MOHR-COULOMBB 

154 

c 

ANGLE  OF  INTERNAL  FRICTION  FOR  EACH  SOIL  TYPE. 

B>2- 

156 

c 

Br2- 

158 

c 

PLT4 

ENTRY  OF  SUBROUTINE  PLTN  WHICH  STORES  THE  PROFILE 

BK2- 

160 

c 

GEOMETRY  AND,  IF  APPLICABLE.  THE  WATER  SURFACE. 

BK2- 

162 

c 

SURFACE  GENERATION  BOUNDARIES,  SURCHARGE  BOUNDARY 

BK2- 

164 

c 

LOADS  AND  A  SPECIFIED  TRIAL  FAILURE  SURFACE.  PLT4 

EK2- 

166 

c 

THEN  PRINTS  THE  ENTIRE  ARRAY  AND  ITS  AXIS  LABlES. 

EK2- 

168 

c 

BK2- 

170 

c 

QUIT 

SUBROUTINE  THAT  DISPLAY5  A  TERMINATION  MESSAGE. 

BK2- 

1?2 

c 

TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE 

BK2- 

174 

c 

PROGRAM. 

BK2- 

176 

c 

BK2- 

178 

c 

R 

UARIABLE  CONTAINING  A  PSEUDO-RANDOM  NUMBEP. 

BK2- 

180 

c 

EK2- 

182 

c 

RANF 

FUNCTION  SUBPROGRAM  THAT  GENERATES  A  PSEUDO-RANDOM 

BK2- 

184 

c 

NUMBER  THAT  HAS  A  UNIFORM  PROBABILITY  OF  HAYING  ANY 

BK2- 

186 

c 

UALUE  RANGING  FROM  ZERO  TO  ONE. 

BK2- 

18B 

c 

BK2- 

190 

c 

RD 

FACTOR  FOR  CDNUERSION  OF  DEGREES  TO  RADIANS. 

EK2- 

132 

c 

EK2- 

194 

c 

SIN 

STANDARD  FUNCTION  THAT  CALCULATES  THE  SINE  OF  AN 

BK2- 

196 

c 

ANGLE. 

BK2- 

198 

c 

BK2- 

POO 

c 

SURF 

ARRAY  CONTAINING  THE  X  AND  Y  COORDINATES  OF  POINTS 

BK2- 

202 

c 

DEFINING  A  TRIAL  FAILURE  SURFACE. 

BK2- 

204 

c 

EK2- 

206 

c 

SWITCH 

ARRAY  USED  TO  TEMPORARILY  STORE  THE  CONTENTS  OF  ARRAYB"2 

208 

c 

SURF  FOR  REORDERING. 

BK2- 

210 

c 

BK2- 

212 

c 

THE7A 

DIRECTION  OF  LAST  LINE  SEGMENT  DEFINING  THE  TRIAL 

BK2- 

214 

c 

SURFACE. 

BK2- 

216 

c 

BK2- 

218 

c 

TSURF 

LENGTH  OF  LINE  SEGMENTS  DEFINING  TRIAL  SURFACES. 

BK2- 

220 

c 

BK2- 

222 

c 

UIDTH 

ARRAY  CONTAINING  THE  UALUES  OF  THE  WIDTH  OF  EACH 

e:2- 

224 

c 

GRID. 

BK2- 

226 

c 

EK2- 

228 

c 

XINT 

X-COORDINATE  OF  INTERSECTION  OF  TUO  LINE  SEGMENTS. 

BK2- 

230 

c 

BK2- 

232 

c 

XL 

ARRAY  CONTAINING  UALUES  OF  THE  X-COORDINATE  OF  THE 

BK2- 

234 

c 

LEFT  END  OF  EACH  GRID  CENTERLINE. 

BK2- 

236 

c 

BK2- 

238 

c 

XR 

ARRAY  CONTAINING  UALUES  OF  THE  X-COORDINATE  OF  THE 

BK2- 

240 

c 

RIGHT  END  OF  EACH  GRID  CENTERLINE. 

BK2- 

242 

c 

BK2- 

244 

c 

V 

Y  COORDINATE  OF  UERTICAL  INTERSECTION  OF  GROUND 

BK2- 

246 

c 

SURFACE  FROM  LAST  POINT  ON  TRIAL  FAILURE  SURFACE. 

BK2- 

248 

c 

BK2- 

250 

c 

YINT 

Y-COORDINATE  OF  INTERSECTION  OF  TWO  LINE  SEGMENTS. 

EK2- 

252 

c 

BK2- 

254 

c 

YL 

ARRAY  CONTAINING  UALUES  OF  THE  Y-COORDINATE  OF  THE 

BK2- 

256 

c 

LEFT  END  OF  EACH  GRID  CENTERLINE. 

BK2- 

258 

c 

EK2- 

260 

c 

YR 

ARRAY  CONTAINING  UALUES  OF  THE  Y-COORDINATE  OF  THE 

BK2- 

266 

c 

RIGHT  END  OF  EACH  GRID  CENTERLINE. 

EK2- 

268 

c 

BK2- 

270 

c  - 



-BK2- 

272 

c 

-BK2- 

274 

It'fO 


COMMON  /BLKOl^IfiNGLi IBLK. IEXIT, ICIPC. ILIMIT,  IPLOT. I  READ. ISEARC. 
1         IELK2.IS0IL. ISTR, ISUPC.ISUPF. IWAT.RD.TOL 

COMMOM  /BLK02/BNDS(100.4).C(20).GAMMA(20).GSAT(20).  ITPf  100  ) .  NEMD. 
1  HSOIL . NTOP. PHI  I  20 ) . RU' 20 ) . CU( 20 ) . MP( 20  J 

COMMOM  /BLK05-'N5URFfSURFaOO»2) 

COMMON  /BLK0E/LIMIT'20.4).NLIMIT.HLMT 

COMMON  /BLK12.''fiMGSl.  ANCS2. BPT, EPT, FRTYFU.  PS.  FSSl  12) .  JJ.  NSURFSC 12) .  BK2 
1  PERPEN.SURFS(100.2. 12  ) . TSURF, YBPT. YEPT, YMIN 

COMMOM  /BLK13/MGRID.WIDTHC10),XL(10).XR(10).YL(10).YR(10) 

COMMOM  /BLK15/  M.MB 

DIMENSION  SUITCH(20.2).ERROR(5) 

DATA  ERROR/4HRC10.4HRC11.4HBK09.4HBK10.4HBK12/ 

NR=0 
2G  J=NGRID 

NR=NR+1 

IF(NR.GE.200)GO  TO  13 
C 

C   

C   DEFIME  A  POINT  WITHIN  EACH  BOX  FOR  THE  TRIAL  SURFACE 
c   

C 

DO  24  I=1.NGRID 

R=RANF(0.) 

SURF(J,1)=XL(I)  +  (XR(I)-XL(D)»R 

SURF(J.2)=YL(I)+(YR(I)-YL(I))*R+WIDTH(I)»(RANF(0. )-.5) 

J=J-1 
24  CONTINUE 
C 

C   CHECK  IF  LAST  POINT  IS  ON  GROUND  SURFACE 
c   

C 

K=NGRID 

DO  6E  I=l.NTOP 

CALL  IHT5C2(ENDS(I.1).BNDS(I.2),BNDS(I,3),BNDS(I.4),0..0..0..0.1 

lSURF(K.l)iY.INTS) 

IF(IMTS.EQ.O)  GO  TO  GG 

IF  (Y.EQ.SURF(K,2))  GO  TO  29 

GG  CONTINUE 

C 

c     

C  PASSIUE  WEDGE 

c     

C 

K=NGRID 

JP=0 

JPB=0 

70  I=MBMD-JP+1 
IF(I.LE.l)  GO  TO  23 
J=NBND-JP 
DO  71  JJ=1.J 
1  =  1-1 
CALL  INTSC2(BNDS(I.l).BNDS(I,2).BNDS(It3).BNDS(I,4),0.r0.t0..0.' 

lSURF(K.l).Yt INTS) 
IF(INTS.EQ.O)  GO  TO  71 
IF(Y.LE.SURF(K,2))  GO  TO  71 
THETA=FRTYFU-PHI ( ITP( I ) )/2.»RD 
JP=JP+JJ 
GO  TO  72 

71  CONTINUE 
GO  TO  29 

72  K=K+1 
SURF(K,l)=SURF(K-l,l)-TSURF»COS(THETA) 
SURF(K.2)=SURF(K-1,2)+TSURF»SINCTHETA) 
I=NBND-JPB 
J=I 
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276 

Br2- 

278 

BK2- 

280 

Bf  2- 

282 

BK2- 

284 

Br2- 

286 

BK2- 

288 

BK2- 

290 

BK2- 

292 

BK2- 

294 

EK.2- 

295 

BK2- 

295 

EK2- 

298 

BK2- 

300 

Ers- 

302 

BK2- 

304 

BK2- 

306 

BK2- 

303 

BK2- 

310 

EK-2- 

312 

BK2- 

314 

BK2- 

31G 

BK2- 

318 

BK2- 

320 

El'2- 

322 

BK2- 

324 

BK2- 

32G 

EK2- 

328 

BK2- 

330 

Ef2- 

332 

BK2- 

334 

BK2- 

335 

BK2- 

338 

Bh'2- 

34  0 

Br.2- 

342 

B>'2- 

344 

BK2- 

346 

BK2- 

348 

BK2- 

350 

EK2- 

352 

BK2- 

354 

BK2- 

356 

BK2- 

358 

BK2- 

360 

BK2- 

362 

BK2- 

364 

BK2- 

36G 

BK2- 

368 

BK2- 

370 

BK2- 

372 

BK2- 

373 

BK2- 

374 

BK2- 

376 

EK2- 

378 

Bn2- 

380 

BK2- 

382 

BK2- 

3S4 

EK2- 

386 

BK2- 

3BS 

BK2- 

390 

BK2- 

392 

BK2- 

394 

BK2- 

396 

BK2- 

39S 

EK2- 

400 

BK2- 

402 

BK2- 

403 

1»71 


DO  73  JJ=1.J 

CALL  INTSCTC BNDS( 1,1). BNDSCI .2). BNDSt I . 3 ) . BMD5C 1.4). SURF ( K. 1 ) . 
1   SURF(K.2).SURFCK-1,1).SURFCK-1,2).XINT,YINT, IHTS) 

1  =  1-1 

IF(IMTS.EQ.O)  GO  TO  73 

SURF(K,1)=XINT 
SURF(K,2)=YINT 
JPB=JPB+JJ 
C 

c  

C   CHECK  SURFACE  POINT  STORAGE  LIMIT 
c   

C 

IFCK.LE.33)  GO  TO  70 

URITECG.102)ERR0R(3) 
102  FORMAT(/, 10X. 14H»*««  ERROR  -  .A4.6H  »••«,/) 
CALL  QUIT 
73  CONTINUE 

IFCSURFCK.  1). GE. BNDSCI, 1))  GO  TO  72 
M=M+1 

IF(M.EQ.l)  URITE(G.102)ERROR(5) 
GO  TO  2G 
C 

C   REUERSE  ORDER  OF  POINTS  GENERATED  THUS  FAR 
C   

c 

29  DO  33  1=1. K 

SUITCHd.  1)=SURF(I,1) 
SWITCH(I,2)=SURF(I»2) 

33  CONTINUE 
J=K 

DO  34  1=1, K 

SURFCI. 1)=SUITCH(J.  1) 

SUPF(I,2)=SUITCH(J,2) 

J=J-1 

34  CONTINUE 
C 

C   CHECK  IF  LAST  POINT  IS  ON  GROUND  SURFACE 
c   

C 

DO  G7  I=1.NT0P 

CALL  INTSC2C BNDSCI, 1),BNDS( I. 2). BNDSCI. 3). BNDSCI. 4 ),0..0..0..0.. 

1SURFCK.  D.Y.INTS) 
IF(INTS.EQ.O)  GO  TO  G7 
IF  (Y.E0.SURF(K,2))  GO  TO  38 
G7  CONTINUE 
C 

C  ACTIUE  HEDGE 

c     

C 

JAB=0 

74  I=NBND+1 
IF(I.LE.l)  GO  TO  38 
DO  75  JJ=1.NBND 

I  =  Irl 

CALL  IhTSC2(BNDS(I,l)»BNDSCI»2)» BNDSCI. 3), BNDSCI. 4).  O.»0.,0.«0.» 

1SURF(K,1),Y,INTS) 
IFCINTS.EQ.O)  GO  TO  75 
IF(Y.LE.SURF(K,2))  GO  TO  75 
THETA=FRTYFU+PHI C ITPC I ) )/2.*RD 
GO  TO  7G 

75  CONTINUE 
GO  TO  38 
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76  K=K+1 

SURF(K, 1 )=SURF(K-1. 1 )+TSURF«COS(THETA) 
SURF ( K ,  2 ) =SURF ( K-l , 2 ) +TSURF«SI M ( THETA ) 
I=NBND-JAB 
J=I 

DO  77   JJ=1,J 

CALL  INTSCT(BNDSCI.1).BNDS(I.2).BNES(I.3).BNDS(I.4),SURF(K-1.  1). 
1    SURF ( K-l . 2) . SURF ( K, 1 ) . SURF ( K. 2 ) . XINT, YINT, INTS ) 
1  =  1-1 

IF(INTS.EQ.O)  GO  TO  77 
SURFCK, 1)=XIHT 
SURF(K.2)=YINT 
JAB=JAB+JJ 
C 

C   CHECK  SURFACE  POINT  STORAGE  LIMIT 
c   

C 

IFCK.LE.99)  GO  TO  74 
URITE(G,102)ERROR(3) 
CALL  QUIT 

77  CONTINUE 
IF(SURF(K.1).LE.BNDS(NT0P»3))  GO  TO  7G 
M=M+1 

IF(M.EQ.l)  WRITE(G.102)ERR0R(5) 

GO  TO  2G 
3B  NSURF=K 

RETURN 
13  WRITE(G.102)ERROR(4) 

IEXIT=2 

RETURN 

END 
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SUBROUTINE  SORT 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


SUBROUTINE  SORT 


FUNCTIONS  - 


SOPTS  ARRAYS  CONTAINING  THE  COORDINATES  OF  THE  TEN  MOST 

CRITICAL  FAILURE  SURFACES  ACCUMULATED  THUS  FAR  AND  IHEIP 

FACTORS  OF  SAFETY  IN  ORDER  OF  THE  MAGNITUDE  OF  THEIR  FACTORS 
OF  SAFETY. 


DEFINITIONS 
FSS 

J 
K 

L 
N 

NSURFS 
SURFS 


ARRAY  CONTAINING  DALLIES  OF  THE  FACTOR  OF  SAFETY  FOR 
THE  TEN  HOST  CRITICAL  TRIAL  SURFACES  OF  THOSE 
GENERATED  AND  EXAMINED. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

COUNTER  FOR  DO  LOOP. 

UARIABLE  USED  TO  TEMPORARILY  STORE  THE  NUMBER  OF 
POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 

ARRAY  CONTAINING  UALUES  OF  THE  NUMBER  OF  POINTS 
DEFINING  EACH  OF  THE  TEN  MOST  CRITICAL  TRIAL 
SURFACES. 

ARRAY  CONTAINING  SETS  OF  COORDINATE  POINTS  DEFINING 
EACH  OF  THE  TEN  MOST  CRITICAL  TRIAL  SURFACES. 


COMMON  /BLK12/ANGS1. ANGS2. BPT, EPT,  FRTYFU,  FS, FSS( 12) . JJ. NSURFS ( 12 
1  PERPEN,SURFS(100.2, 12 ) , TSURF. YBPT. YEPT, YMIN 

DO  15  L=1.10 

DO  15  K=2,10 

IF(FSS(K-l).LE.FSS(K))GO  TO  15 

N=NSURFS(K) 

DO  IB  J=1.N 

SURFSCJ. 1, 12)=SURFS(J»1.K) 

SURFS(J.2.12;=SURFS(J.2,K) 
IE  CONTINUE 

NSURFS (12 )=NSURFS(K) 

FSS(12)=FSS(K) 

N=NSURFS(K-1) 

DO  19  J=1.N 

SURFS(J.1,K)=SURFS(J,1.K-1) 

SURFS(J»2,K>=SURFS(J.2.K-1) 
19  CONTINUE 

FSS(K)=FSS(K-1) 

NSURFS(K)=NSURFS(K-1) 

N=NSURFS(12) 

DO  17  J=1.N 

5URFS(J.l,K-l)=SURFS(J.lrl2) 

SURFS(J,2.K-1)=SURFS(J,2, 12) 
17  CONTINUE 

FSS(K-1)=FSS(12) 

NSURFS(K-1)=NSURFSQ2) 
15  CONTINUE 

RETURN 

END 


SORT 
—SORT 

—  SOPT 
SORT 

—SORT 
—SOPT 

SOPT 

SORT 

SOPT 

SOPT 

SOPT 

SOPT 

SOPT 

SOPT 
--50PT 

SOPT 

SOPT 

SOPT 

SORT 

SORT 

SORT 

SOPT 

SCPT 

SORT 

SOPT 

SOPT 

SORT 

SORT 

SOPT 

SORT 

SORT 

SORT 

SOPT 

SORT 

SOPT 

SOPT 

SORT 

SOPT 
—SORT 

—  SORT 
SORT 

J.SORT 
SOPT 
SORT 
SORT 
SORT 
SORT 
SORT 
SOPT 
SORT  100 
SOPT  102 
SORT  104 
SORT  10B 
.SORT  108 
SORT  110 
SORT  112 
SORT  114 
SOPT  11B 
SORT  118 
SCRT  120 
SORT  122 
SORT  124 
SOPT  12B 
SOPT  128 
SORT  130 
SORT  132 
SORT  134 
SORT  136 
SORT  138 
SORT  140 


2 

4 

E 

8 

10 

12 

14 

IE 

18 

20 

c'l 

24 

2E 

E6 
30 
3? 
34 
3G 
36 
40 

4P 
44 
45 
4B 
50 
5? 
54 
55 
58 
EO 
53 
S4 
EG 
B8 
70 
72 

74 

7B 

78 
BO 

82 
84 
BE 
S3 
90 
S3 
34 
85 
33 


u-ju 


SUBROUTINE  EXECUT 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


c 

c 
c 
c 
c 
c 


SUBROUTINE  EXECUT 


FUNCTIONS 


CONTROLS  CALCULATION  OF  THE  FACTOR  OF  SAFETY  AND 
STEPS. 


INTERMEDIATE 


IF  SINGLE  TRIAL  FAILURE  SURFACE  SPECIFIED. 
OF  SURFACE  AND  PROBLEM  GEOMETRY. 


IMPLEMENTS  PLOT 


DEFINITIONS 
FACTR 


ISEARC 


PLOTIN 


PLT4 


SLICES 

WEIGHT 


EXEC 

-EXEC 

-EXEC 

EXEC 

EXEC 

-EXEC 

cxr.c 

EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
-EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  EXEC 

EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
SUBROUTINE  ENTRY  OF  SUBROUTINE  PLTN  WHICH  PLOTS  WITH  EXEC 
PRINT  CHARACTERS  THE  PROFILE  BOUNDARY  END  POINTS.  ANDEXEC 
IF  SPECIFIED.  WATER  SURFACE  POINTS.  SEARCHING  LIMIT  EXEC 
END  POINTS.  AND  SPECIFIED  TRIAL  FAILURE  SURFACE 
POINTS. 


SUBROUTINE  WHICH  CALCULATES  THE  FACTOR  OF  SAFETY. 


AFFECTED  BY  THE  SEARCHING  SUBROUTINES  RANDOM  AND 
BLOCK. 

SUBROUTINE  WHICH  PLOTS  WITH  A  PLOTTING  DEUICE  THE 
PROFILE.  AND  IF  SPECIFIED.  THE  WATER  SURFACE. 
SEARCHING  BOUNDARIES.  AND  A  SPECIFIED  TRIAL  FAILURE 
SURFACE. 


SUBROUTINE  WHICH  DIUIDES  SLIDING  MASS  INTO  SLICES. 

SUBROUTINE  WHICH  CALCULATES  THE  TOTAL  WEIGHT  OF  EACH 
SLICE. 


EXEC 

EXEC 

EXEC 

EXEC 

EXEC 

EXEC 

EXEC 

EXEC 
-EXEC 
-EXEC  110 


COMMON  /BLK01/IANGL. IBLK. IEXIT. ICIRC. ILIMIT.  IPLOT. IREAD.  ISEARC. 
1        IBLK2, ISOIL. ISTR, ISURC. ISURF, IWAT, RD.TOL 


ACTIUATE  P0RTI0N5  OF  THE  PROGRAM  THAT  CALCULATES  THE  FACTOR 
OF  SAFETY  FOR  A  SPECIFIED  OR  GENERATED  TRIAL  FAILURE  SURFACE 


CALL  SLICES 

CALL  WEIGHT 

CALL  FACTR 

IF ( ISEARC. EO.l) RETURN 


IF  SINGLE  TRIAL  FAILURE  SURFACE  SPECIFIED. 
PLOT  OF  THE  SURFACE  AND  PROFILE  GEOMETRY 


CALL  PLT4 
CALL  PLOTIN 
RETURN 
END 


IMPLEMENT 


EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 
EXEC 


S 

4 

6 

B 
10 
IP 
H 
IE 
18 
?n 
22 
24 
26 
28 
30 
32 
34 
36 
38 
4  0 

4i_ 
50 

52 
54 
5B 
58 
60 
62 
64 
66_ 
74 
76 
7B 
80 
E? 
84_ 
98 
100 
102 
104 
106 
108 


IIP 
114 
116 
118 
120 
122 
124 
126 
128 
130 
132 
134 
136 
138 
140 
142 
144 
146 
148 
150 
152 
154 
15G 
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SUBROUTINE  SLICES  SLIC  2 

c   SLIC  4 

c   SLIC  6 

C  SUBROUTINE  SLICES                        SLIC  8 

c   SLIC  10 

c   SL  IC  1? 

C  SLIC  14 

C   FUNCTION  -  SLIC  IB 

C  SLIC  18 

C  DIUIDES  SLIDING  MASS  INTO  SLICE5.                            SLIC  20 

C  SLIC  22 

c   SLIC  24 

C  SLIC  2B 

C   DEFINITIONS  -  SLIC  28 

C  SLIC  30 

C  A         UARIABLE  USED  TO  INTERCHANGE  THE  UALUES  OF  TWO  OTHER  SLIC  32 

C  UARIABLES.                                        SLIC  34 

C  SLIC  3G 

C  ABS       STANDARD  FUNCTION  WHICH  DETERMINES  THE  ABSOLUTE      SLIC  38 

C  UALUE  OF  A  NUMBER.                                 SLIC  40 

C  SLIC  42 

C  BNDS      AN  ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTSSLIC  44 

C  DEFINING  THE  GROUND  SURFACE  AND  SUBSURFACE           SLIC  4G 

C  BOUNDARIES.                                       SLIC  48 

C  SLIC  50 

C  I         INDEX  UARIAELE  FOR  ARRAY  SUBSCRIPTING.               SLIC  52 

C  SLIC  54 

C  II        INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               SLIC  SB 

C  SLIC  58 

C  INTS      CONTROL  CODE  WHICH  SIGNALS  UHETHER  AN  INTERSECTION   SLIC  BO 

C  HAS  OCCURRED  OR  NOT.                               5LIC  B2 

C  SLIC  B4 

C  INTSCT    SUBROUTINE  UHICH  DETERMINES  WHETHER  OP  NOT  TWO  LINE   SLIC  6E 

C  SEGMENTS  INTERSECT  AND  CALCULATES  THE  COORDINATES  OF  SLIC  68 

C  THE  INTERSECTION.                                  SLIC  70 

C  SLIC  72 

C  INTSC2    ENTRY  POINT  INTO  SUBROUTINE  INTSCT  WHICH  DETERMINES  SLIC  74 

C  WHETHER  OR  NOT  A  LINE  SEGMENT  AND  A  UERTICAL  LINE    SLIC  7B 

C  INTERSECT  AND  CALCULATES  THE  COORDINATES  OF  THE      SLIC  78 

C  INTERSECTION.                                     SLIC  80 

C  SLIC  82 

C  ISURC     CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  SLIC  84 

C  HANDLING  THE  SURCHARGE  LOADS  SPECIFIED  BY  SUBROUTINE  SLIC  8G 

C  LOADS.                                            SLIC  88 

C  SLIC  90 

C  IWAT      CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  SLIC  52 

C  HANDLING  THE  WATER  SURFACE  SPECIFIED  BY  SUBROUTINE   SLIC  34 

C  WATER.                                            SLIC  SB 

C  SLIC  98 

C  J         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               SLIC  100 

C  SLIC  102 

C  JS        SUBSCRIPT  OF  LAST  LINE  SEGMENT  OF  THE  TRIAL  FAILURE   SLIC  104 

C  SURFACE  USED  TO  DETERMINE  WHETHER  A  POINT  DEFINING   SLIC  10G 

C  THE  WATER  SURFACE  LIES  WITHIN  THE  SLIDING  MASS.      SLIC  108 

C  SLIC  110 

C  JTN       UARIABLE  USED  TO  TEMPORARY  STORE  THE  UALUE  OF  AN     JUL7GEB0 

C  INDEX  UARIABLE  USED  FOR  ARRAY  SUBSCRIPTING.          JUL7BEB0 

C  JUL7GEB0 

C  JU        SUBSCRIPT  OF  LAST  POINT  DEFINING  THE  WATER  SURFACE  TOSLIC  112 

C  BE  USED  FOR  DETERMINING  WHETHER  THE  WATER  SURFACE    SLIC  114 

C  INTERSECTS  THE  TRIAL  FAILURE  SURFACE.               SLIC  1  IB 

C  SLIC  118 

C  JWW       STORES  UALUE  OF  JW.                              SLIC  120 

C  SLIC  122 

C  K         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               SLIC  124 

C  SLIC  12B 


UT6 


c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 

c 
c 
c 
c 
c 


N 

NBND 

NN 

NPIEZ 

MPZ 

NSLICE 

NSURC 

NSURF 

NTOP 

NTOP1 

SURC 

SURF 

TOL 

X 

XINT 
XPIE2 


VINT 
YPIE2 


INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

TOTAL  NUMBER  OF  PROFILE  BOUNDARIES. 

UARIABLE  USED  TO  TEMPORARY  STORE  AN  ARRAY  UARIAELl 
FDR  A  DO  STATEMENT. 

NUMBER  OF  POINTS  DEFINING  THE  WATER  SURFACE. 

NUMBER  OF  PIE20METRIC  SURFACES  DEFINED. 

NUMBER  OF  SLICES  WHICH  THE  SLIDING  MASS  IS  DIUIDED. 

NUMBER  OF  BOUNDARY  LOADS  SPECIFIED. 

NUMBER  OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 

NUMBER  OF  GROUND  SURFACE  BOUNDARIES. 

NTOP  +  1 

ARRAY  CONTAINING  X  COORDINATES  OF  THE  END  POINTS 
DEFINING  THE  EXTENT  OF  LOADING. 

ARRAY  CONTAINING  THE  X  AND  Y  COORDINATES  OF  POINTS 
DEFINING  A  TRIAL  FAILURE  SURFACE. 

TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  ROUNDING. 

ARRAY  CONTAINING  POSITIONS  OF  THE  DIUISIONS  BETWEEN 
SLICES. 

X  COORDINATE  OF  INTERSECTION  OF  TWO  LINE  SEGMENTS. 

ARRAY  CONTAINING  X  COORDINATES  OF  POINTS  DEFINING 
WATER  SURFACE. 


JUL7BEE0 
JUL7SEB0 
SL1C  128 
SLIC  130 
AUG76EB0 
AUC7GEB0 
AUG7GEB0 
SLIC  132 
SLIC  134 
JUL7GEB0 
JUL7GEB0 
SLIC  13G 
SLIC  13B 
SLIC  140 
SLIC  142 
SLIC  144 
SLIC  14G 
SLIC  148 
SLIC  150 
SLIC  152 
SLIC  154 
SLIC  15G 
SLIC  158 
SLIC  ISO 
SLIC  1G2 
SLIC  1G4 
SLIC  IBS 
SLIC  1G8 
SLIC  170 
SLIC  172 
SLIC  174 
SLIC  17G 
SLIC  178 
SLIC  180 
SLIC  182 
SLIC  184 
SLIC  18G 

Y  COORDINATE  OF  THE  TRIAL  FAILURE  SURFACE  IMMEDIATELYSLIC  188 
ABOUE  OR  BELOW  AN  END  POINT  OF  A  SUBSURFACE  BOUNDARY. SL I C  190 

SLIC  192 

Y  COORDINATE  OF  INTERSECTION  OF  TWO  LINE  SEGMENTS.    SLIC  194 

SLIC  196 
SLIC  198 
SLIC  200 
SLIC  202 
-SLIC  204 
-SLIC  20G 


ARRAY  CONTAINING  Y  COORDINATES  OF  POINTS  DEFINING 
WATER  SURFACE. 


COMMON  /BLX01/IANGL, IBLK, IEXIT, ICIRC, ILIMIT, IPLOT. IREAD. ISEARC, 

1  IBLK2. ISOIL.ISTR.ISURC.ISURF.IWAT.RD.TOL 

COMMON  /BLK02/BNDSC 100, 4 ). C(20) , GAMMA (20 ) . GSAT( 20 ) . ITP( 100 ) , NEND. 
I  NSOIL. NTOP. PHI ( 20 ) , RU( 20 ) , CU( 20 ) , NP(20) 

COMMON  /BLK03/-UWAT,NPZ,NPIEZ(10).XPIE2(10.40),YPIEZ(10»40) 

COMMON  /BLK04/DELTA(10).LOADC10),NSURC.SURC(10,2).YSURCU0.2) 

COMMON  /BLK05/NSURF,SURF(100,2) 

COMMON  /"BLK08/NSLICE.X(300) 

K=0 


DIUIDE  SLIDING  MASS  AT  EACH  POINT 
DEFINING  THE  TRIAL  FAILURE  SURFACE 


DO  3  1=1. NSURF 
K=K+1 

X(K)=SURF(I,1) 
CONTINUE 


SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 
SLIC 


20S 
210 
212 
214 
21G 
218 
220 
222 
224 
22G 
228 
230 
232 
234 
23G 
238 
240 
242 
244 
24G 
248 


U77 


c 

_ 

SLIC  250 

c 

DIUIDE  SLIDING  MASS  AT  EACH  GROUND  SURFACE 

SLIC  255 

c 

END  POINT  WITHIN  SLIDING  MASS 

SLIC  254 

c 

c 

SLIC  25G 
SLIC  258 

DO  2  I=l,NTOP 

SLIC  PBO 

IF(BNDS(I.3).LE.SURF(1,1))G0  TO  2 

SLIC  PG2 

IF(BNDS(I.3).GE.SURF(NSURF,1))G0  TO  28 

SLIC  264 

K=K+1 

SLIC  2GG 

X(K)=BNDS(Ir3) 

SLIC  2G8 

2  CONTINUE 

SLIC  270 

28  IF(NTOP.EQ.NBND)GO  TO  33 

SLIC  272 

c 
c 

c 

SLIC  274 
SLIC  27G 
SLIC  278 

DIUIDE  SLIDING  MASS  AT  EACH  SUBSURFACE  BOUNDARY 

c 

END  POINT  WITHIN  THE  SLIDING  MASS. 

SLIC  280 

c 



SLIC  282 

c 

SLIC  284 

NTOP1=NTOP+1 

SLIC  28G 

DO  27  I=NTOPl,NBND 

SLIC  288 

IF(BNDS(I.3).LE.SURF(1,1))G0  TO  27 

SLIC  290 

IF(BNDS(I.l).GE.SURF(NSURF,l))GO  TO  27 

SLIC  292 

IF(BNDS(I-1,3).EQ.BNDS(I.1))G0  TO  29 

SLIC  294 

IF(BNDS(I.l).LE.SURFU.l))GO  TO  23 

SLIC  29G 

11  =  1 

SLIC  298 

GO  TO  30 

SLIC  300 

29  IF(BNDS(I.3).GE.SURF(NSURF.1))G0  TO  27 

SLIC  302 

11=3 

SLIC  304 

30  DO  12  J=2.NSURF 

SLIC  30G 

32  IF(BNDS(I,II).GT.SURF(J.l))GO  TO  12 

SLIC  308 

CALL  INTSC2(SUPF(J-l,l),SURF(J-l,2).SURF(J.l),SURF(J,2).0..0.,0.t 

SLIC  310 

1    O..BNDS(I.II).Y.INTS) 

SLIC  312 

IF(BNDS(I.II+l).LT.Y)GO  TO  31 

SLIC  314 

K=K+1 

SLIC  31G 

X(K)=BNDS(I.II) 

SLIC  318 

31  IF(II.EQ.3)G0  TO  27 

SLIC  320 

11=3 

SLIC  322 

GO  TO  32 

SLIC  324 

12  CONTINUE 

SlIC  32G 

27  CONTINUE 

SLIC  3?8 

33  IF(IUAT.EQ.O)GO  TO  5 

SLIC  330 

c 

SLIC  332 

c 



SLIC  334 

c 

DIUIDE  SLIDING  MASS  AT  EACH 

SLIC  336 

c 
c 

POINT  DEFINING  THE  WATER  SURFACE 

SLIC  338 
SlIC  340 

c 

SLIC  342 

DO  35  N=1.NPZ 

SLIC  343 

JS=2 

SLIC  344 

NN=NPIE2(N) 

SLIC  345 

DO  4  1=1. NN 

SLIC  346 

IF(XPIEZ(N.I).LT.SURF(l.l))GO  TO  4 

SLIC  348 

IF(XPIEZ(N. D.GE.SURFCNSURF.  l))GO  TO  4 

SLIC  350 

DO  13  J=JS.NSURF 

SLIC  352 

JTN=J 

SLIC  353 

IF(XPIEZ(N. I).GT.SURF(J,l))GO  TO  13 

SLIC  354 

CALL  INTSC2(SURF(J-1,1).SURF(J-1,2),SURF(J. 1 ) , SUFFC J,2) , 0. . 0. , 0. . 

SLIC  356 

1   O..XPIEZ(N.I).Y.INTS) 

SLIC  358 

IF(YPIEZ(N,I).LT.Y)GO  TO  14 

SLIC  360 

K=K+1 

SLIC  362 

X(K)=XPIEZCN,I) 

SLIC  364 

GO  TO  14 

SLIC  366 

13  CONTINUE 

SLIC  368 

14  JS=JTN 

SLIC  370 

4  CONTINUE 

SLIC  372 

35  CONTINUE 

SLIC  373 

c 

5  IF(ISURC.EO.0)GO  TO  6 

SLIC  374 
SLIC  375 

c 


UTci 


SLIC  378 

C   DIUIDE  SLIDING  MA55  AT  EACH  POINT  SLIC  380 

C   DEFINING  A  CHANGE  IN  SURFACE  LOADING  SLIC  382 

r        SLIC  384 

c  SLIC  38E 

DO  7  I=1.NSURC  SLIC  388 

IF(SURC(I.2).LE.SURF(1,1))G0  TO  7  SLIC  390 

IF(SURC(I.l).GE.SURF(NSURF,l))GO  TO  7  SLIC  392 

IF(SURC(I.1KGT.SURF(1,1))G0  TO  8  SlIC  334 

K=K+1  SLIC  39E 

X(K)=SURC(I.2)  SLIC  393 

GO  TO  7  SLIC  400 

8  IF(SURC(I.2).LT.SURF(NSURF,1))G0  TO  9  SLIC  402 
K=K+1  SLIC  404 
X(K)=SURC(I.l)  SLIC  40E 
GO  TO  7  SLIC  408 

9  K=K+1  SLIC  410 
X(K)=SURC(I.l)  SLIC  412 
K=K+1  SLIC  414 
X(K)=SURC(I.2:>  SLIC  41G 

7  CONTINUE  SLIC  418 

G  IF(NTOP.EQ.NBND)GO  TO  20  SLIC  420 

NTOPl=NTOP+l  SLIC  422 

DO  18  I=NTOPi.NBND  SLIC  424 

c  SLIC  42G 

C   UHEN  TRIAL  FAILURE  SURFACE  INTERSECTS  A  SUBSURFACE  SLIC  430 

C   BOUNDARY.  DIUIDE  SLIDING  MASS  AT  THAT  POINT  SLIC  432 


C 


SLIC  434 


c  SLIC  43G 

DO  10  J=2.NSURF  SLIC  438 
CALL  INTSCT(BNDS(I,1).BNDS(I.2),BND5CI,3).BNDS(I.4),SURF(J-1.1),   SLIC  440 

1    SURF(J-1,2).SURF(J.1),SURF(J.2),XINT.YINT.INTS)  SLIC  442 

IFdNTS.NE.DGO  TO  10  SLIC  444 

K=K+1  SLIC  446 

X(K)=XINT  SLIC  448 

10  CONTINUE  SLIC  450 

IF(IUAT.EQ.0)GO  TO  18  SLIC  452 

C  SLIC  454 

C   WHEN  FREE  UATEP  SURFACE  INTERSECTS  A  SUBSURFACE  SLIC  458 

C   BOUNDARY,  DIUIDE  SLIDING  MASS  AT  THAT  POINT  SLIC  4B0 

c   SLIC  4G2 

C  SLIC  4G3 

DO  3G  N=1.NP2  SLIC  4G4 

NN=NPIEZ(N)  SLIC  4G5 

DO  19  J=2.NN  SLIC  4GG 

IF(XPIEZ(N.J).LE.SURF(l,l).OR.XPIEZ(N,J-l).GE.SURF(NSURF,l))  SLIC  4G8 

1  GO  TO  19  SLIC  4G9 
CALL  INTSCT(BNDS(I.1)»BNDS(I.2).BNDS(I.3).BNDS(I,4).XPIEZ(N,J-1).  SLIC  470 

1  YPIEZ(N,J-1).XPIEZ(N,J).YPIEZ(N,J),XINT,YINT,INTS)  SLIC  472 

IFdNTS.NE.DGO  TO  19                                  .  SLIC  474 

IF(XINT.LE.SURF(l,l).OR.XINT.GE.SURF(NSURF.l))GO  TO  19  SLIC  47G 

DO  21  II=2rNSURF  SLIC  478 

IF(XINT.GT.SURF(II,l))GO  TO  21  SLIC  480 
CALL  INTSC2(SURF(II-1.1).SURF(II-1.2).SURF(II.1).SURF(II,2).0..0..SLIC  482 

1    0..0..XINT.Y.INTS)  SLIC  484 

IFCYINT.LT. Y)GO  TO  19  SLIC  48G 

K=K+1  SLIC  488 

X(K)=XINT  SLIC  490 

GO  TO  19  SLIC  492 

21  CONTINUE  SLIC  494 

19  CONTINUE  SLIC  49G 
3G  CONTINUE  SLIC  497 
18  CONTINUE  SLIC  498 

20  IF(IUAT.EQ.O)GO  TO  22  SLIC  500 
r  SLIC  502 


hV) 


C    5LIC  504 

C   UHEN  UIATER  SURFACE  INTERSECTS  THE  TRIAL  FAILURE  SLIC  SOB 

C   SURFACE.  DIUIDE  SLIDING  MASS  AT  THAT  POINT  SLIC  508 

c   SLIC  510 

C  SLIC  512 

DO  37  N=1,NPZ  SLIC  513 

JUU=2  SLIC  514 

JU=2  SLIC  51B 

NN=NPIEZ(N)  SLIC  51? 

DO  23  I=2,NSURF  SLIC  518 

DO  24  J=JU,NN  SLIC  520 

IF(XPIEZ(N,J).LE.SURF(I-l.l))GO  TO  25  SLIC  522 

IF(XPIEZ(N.J-l).GE.SURF(I,l))GO  TO  2B  SLIC  524 

CALL  INTSCT(XPIEZ(N,J-1).YPIEZ(N.J-1).XPIEZ(N,J),YPIEZ(N,J).  SLIC  52G 

1  SURF(I-1,1).SURF(I-1,2),SURF(I,1),SURF(I,2).XINT,YINT.INTS)  SLIC  52B 

IF(INTS.EQ.0)GO  TO  24  SLIC  530 

K=K  +  1  SLIC  532 

x(K)=xirrr  slic  534 

25  JUU=J  SLIC  53B 

24  CONTINUE  SLIC  538 

2B  JU=JUU  SLIC  54  0 

23  CONTINUE  SLIC  542 

37  CONTINUE  SLIC  543 

C  SLIC  544 

C   ORDER  SLICE  DIUISIONS  FROM  LEFT  TO  RIGHT  SLIC  548 

c   SLIC  550 

C  SLIC  552 

22  DO  11  1=1. K  SLIC  554 

DO  11  J=2.K  SLIC  55S 

IF(X(J-l).LE.X(J))GO  TO  11  SLIC  558 

A=X(J)  SLIC  5B0 

XCJ)=X(J-1)  SLIC  5B2 

X(J-1)=A  SLIC  564 

11  CONTINUE  SLIC  5B6 

J=2  SLIC  5G8 

C  SLIC  570 

C   CHECK  FOR  AND  ELIMINATE  DUPLICATE  DIUISIONS  SLIC  574 

C   5LIC  5?6 

C  SLIC  578 

17  IF(ABS(X(J-l)-X(J)).GE.TOL)GO  TO  15  SLIC  580 

DO  16  I=J,K  SLIC  582 

X(I-1)=X(I)  SLIC  584 

16  CONTINUE  SLIC  58B 

K=K-1  SLIC  588 

GO  TO  34  SLIC  590 

15  J=J+1  SLIC  532 

34  IFCJ.LE.IOGO  TO  17  SLIC  594 

NSLICE=K-1  SLIC  59B 

RETURN  SLIC  598 

END  SLIC  BOO 
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SUBROUTINE   WEIGHT  UIGHT        ? 

C        UCHT         4 

p  _^_____ __ _ — i _— _ UPHT  R 

C  SUBROUTINE   UEICHT                                                               UIGHT        B 

c        UGHT      10 

c        Wqht       x  2 

C  UGHT   14 

C   FUNCTIONS  -  UGHT   1G 

C  ■       UGHT   18 

C  DETERMINES  THE  INCLINATION  OF  THE  TOP  AND  BOTTOM  OF  EACH       UGHT   20 

C  SLICE.                                                     UGHT   22 

C  UGHT  24 

C  DETERMINES  THE  RESULTANT  UATER  FORCES  AT  THE  TOP  AND  BASE  DF   UGHT   2G 

C  EACH  SLICE  IF  PRESENT.                                    UGHT  28 

C  UGHT   30 

C  DETERMINES  THE  TOTAL  UEIGHT  OF  EACH  SLICE  AND  THE  SOIL  TVPE  AT  UGHT  32 

C  THE  BASE  OF  EACH  SLICE.                                     UGHT   34 

C  UGHT   3G 

C  DETERMINES  THE  SURCHARGE  FORCE,  IF  ANY,  AT  THE  TOP  OF  EACH     UGHT   38 

C  SLICE.                                                     UGHT   40 

C  UGHT   42 

C   UGHT   44 

C  UGHT   4S 

C   DEFINITIONS  -  UGHT   48 

C  UGHT   50 

C  ALPHA     ARRAY  CONTAINING  UALUES  OF  THE  ANGLES  OF  THE  BASE  OF  UGHT   52 

C  EACH  SLICE.                                       UGHT   54 

C  UGHT   5G 

C  ATAN      STANDARD  FUNCTION  THAT  CALCULATES  THE  ARCTANGENT  OF  AUGHT   58 

C  NUMBER.                                           UGHT  GO 

C  UIGHT   E2 

C  BETA      PRRAY  CONTAINING  UALUES  OF  THE  ANGLE  OF  THE  TOP  OF   UGHT  £4 

C  EACH  SLICE.                                       UGHT   GG 

C  UGHT   GB 

C  BNDS      AN  ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  FOTNTSUGHT   70 

C  DEFINING  THE  GROUND  SURFACE  AND  SUBSURFACE           UGHT   72 

C  BOUNDARIES.                                       UGHT   74 

C  UGHT   7G 

C  CA        COSINE  OF  ANGLE  ALPHA.                             UGHT   78 

C  UGHT   80 

C  CAUT      CAUITATION  PRESSURE.                               UGHT   82 

C  UGHT   84 

C  COS       STANDARD  FUNCTION  THAT  CALCULATES  THE  COSINE  OF  AN   UGHT   86 

C  ANGLE.                                            UGHT   88 

C  UGHT   90 

C  CU        ARRAY  CONTAINING  UALUES  OF  CONSTANT  PORE  PRESSJRE  FORUGHT   32 

C  EACH  SOIL  TYPE.                                    UGHT   94 

C  UGHT   9G 

C  DELT      ARRAY  CONTAINING  UALUES  OF  INCLINATION  OF  THE        UGHT   98 

C  BOUNDARY  LOAD  FOR  EACH  SLICE.                       UGHT  100 

C  UGHT  102 

C  DELTA     ARRAY  CONTAINING  UALUES  OF  LOAD  DIRECTION  FCR  EACH   UGHT  104 

C  BOUNDARY  LOAD  SPECIFIED.                           UGHT  10G 

C  UGHT  108 

C  DX        ARRAY  CONTAINING  UALUES  OF  THE  UIDTH  OF  EACH  SLICE.   UGHT  110 

C  UGHT  112 

C  I         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               UGHT  114 

C  UGHT  116 

C  INTS      CONTROL  CODE  UHICH  SIGNALS  UHETHER  AN  INTERSECTION   UGHT  118 

C  HAS  OCCURRED  OR  NOT.                             UGHT  120 

C  UGHT  122 

C  INTSC2    ENTRY  POINT  INTO  SUBROUTINE  INTSCT  UHICH  DETERMINES  UGHT  124 

C  UHETHER  OR  NOT  A  LINE  SEGMENT  AND  A  UERTICAL  LINE    UGHT  126 

C  INTERSECT  AND  CALCULATES  THE  COORDINATES  OF  THE      UGHT  128 

C  INTERSECTION.                                     UGHT  130 

C  UGHT  132 
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c 

ISEARC 

c 

c 

c 

ISURC 

c 

c 

c 

c 

ITP 

c 

c 

IUAT 

c 

c 

c 

c 

J 

c 

c 

JB 

c 

c 

c 

c 

c 

JJ 

c 

c 

c 

JS 

c 

• 

c 

r 

JT 

c 

c 

c 

c 

JTN 

c 

c 

c- 

JU 

c 

c 

c 

c 

c 

K 
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c 

Kl 

c 

c 

KCOEF 

c 

c 

LOAD 

c 

c 

c 

hi 

c 

c 

NBND 

c 

c 

NN 

c 

c 

c 

MP 

c 

c 

c 

NPIEZ 

c 

c 

NPZ 

c 

c 

NSLICE 

c 

c 

NSOIL 

c 

c 

NSURC 

c 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PPOCRAM 
AFFECTED  BY  THE  SEARCHING  SUBROUTINE  RANDOM. 

CONTROL  CODE  WHICH  ACTIVATES  PORTIONS  OF  THE  PROGRAM 
HANDLING  THE  SURCHARGE  LOADS  SPECIFIED  BY  SUBROUTINE 
LOADS. 

ARRAY  CONTAINING  SOIL  TYPE  INDICES  FOP  EACH  BOUNDARY, 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  -PROGRAM 
HANDLING  THE  WATER  SURFACE  SPECIFIED  BY  SUBROUTINE 
WATER. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

SUBSCRIPT  OF  LAST  POINT,  DEFINING  THE  TRIAL  FAILURE 
SUPFACE.  TO  BE  USED  FOR  DETERMINING  THE  INTERSECTION 
OF  THE  CENTERLINE  OF  A  SLICE  WITH  THE  FAILURE 
SURFACE. 

UARIABLE  USED  TO  TEMPORARY  STORE  AN  ARRAY  UPPIAELE 
FOR  A  DO  STATEMENT. 

SUBSCRIPT  OF  LAST  BOUNDARY  LOAD  USED  FOP  DETERMINING 
LOAD  DISTRIBUTION  TO  A  SLICE. 

SUBSCRIPT  OF  LAST  BOUNDARY,  DEFINING  THE  GROUND 
SURFACE.  TO  BE  USED  FOR  DETERMINING  THE  INTERSECTION 
OF  THE  CENTERLINE  OF  A  SLICE  WITH  THE  GROUND  SURFACE 

UARIABLE  USED  TO  TEMPORARY  STORE  THE  UALUE  OF  AN 
INDEX  UARIABLE  USED  FOR  ARRAY  SUBSCRIPTING. 

ARRAY  CONTAINING  SUBSCRIPT  OF  LAST  POINT  DEFINING 
EACH  PIEZOMETRIC  SURFACE,  USED  TO  DETERMINE  THE 
INTERSECTION  OF  THE  CENTERLINE  OF  A  SLICE  WITH 
THE  PIEZOMETRIC  SURFACE. 

INDEX  UARIABLE  FOP  APRAY  SUBSCRIPTING. 

K-l 

HORIZONTAL  EARTHQUAKE  COEFFICIENT. 

ARRAY  CONTAINING  UALUES  OF  UNIFORM  LOAD  INTENSITY 
FOR  EACH  EOUNDARY  LOAD  SPECIFIED. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

TOTAL  NUMBER  OF  PROFILE  BOUNDARIES. 

UARIABLE  USED  TO  TEMPORARY  STORE  AN  ARRAY  UfiRJABLE 
FOR  A  DO  STATEMENT. 

ARRAY  CONTAINING  NUMBER  OF  PIEZOMETRIC  SURFACE 
FOR  EACH  SOIL  TYPE. 

NUMBER  OF  POINTS  DEFINING  THE  WATER  SURFACE. 

NUMBER  OF  PIEZOMETRIC  SURFACES  DEFINED. 

NUMBER  OF  SLICES  WHICH  THE  SLIDING  MASS  IS  EIUIDED. 

NUMBER  OF  SOIL  TYPES  SPECIFIED. 

NUMBER  OF  BOUNDARY  LOADS  SPECIFIED. 


LIGHT  134 
WGHT  136 
WGHT  138 
WGHT  140 
UGHT  142 
UGHT  144 
WGHT  14E 
.WGHT  14B 
WGHT  150 
WGHT  152 
WGHT  154 
WGHT  15B 
WGHT  158 
WGHT  1E0 
WGHT  1G2 
UGHT  1E4 
UGHT  1GE 
WGHT  1G8 
WGHT  170 
WGHT  172 
AUG7BEB0 
AUG76EB0 
AUG7GEB0 
UGHT  174 
UGHT  176 
WGHT  178 
UGHT  180 
UGHT  182 
.WGHT  184 
UGHT  18G 
UGHT  188 
UGHT  190 
UGHT  132 
WGHT  134 
WGHT  126 
UGHT  138 
UGHT  200 
UGHT  202 
UGHT  204 
UGHT  206 
AUG76EB0 
AUG7GEB0 
WGHT  208 
WGHT  210 
UGHT  212 
UGHT  214 
UGHT  21 G 
UGHT  218 
UGHT  220 
WGHT  222 
UChT  224 
AUG76EB3 
AUG7EEB0 
AUG76EB0 
UGHT  225 
UGHT  228 
WGHT  230  ■ 
UGHT  232 
UGHT  234 
U'GHT  236 
WGHT  238 
UGHT  240 
UGHT  242 
HDU76EB0 
N0U7GEB0 
UGHT  244 
UGHT  246 


1*8? 


c 

NSURF 

NUMBER  OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 

WGHT  248 

c 

WGHT  250 

c 

NTOP 

NUMBER  OF  GROUND  SURFACE  BOUNDARIES. 

WGHT  252 

c 

WGHT  254 

c 

NTOP1 

NTOP  +  1 

WGHT  25E 

c 

WGHT  258 

c 

p 

ARRAY  CONTAINING  UALUES  OF  THE  BOUNDARY  LOAD  APPLIED 

WGHT  2B0 

c 

TO  EACH  SLICE. 

UGHT  2E2 

c 

WGHT  264 

c 

PLT4 

ENTRY  OF  5UER0UTINE  PLTN  WHICH  STORES  THE  PROFILE 

N0U7GEB0 

c 

GEOMETRY  AND.  IF  APPLICABLE,  THE  WATER  SURFACE. 

N0U76EB0 

c 

SURFACE  GENERATION  BOUNDARIES.  SURCHARGE  BOUNDARY 

N0U76EE0 

c 

LOADS  AND  A  SPECIFIED  TRIAL  FAILURE  SURFACE.  PLT4 

N0U7GEB0 

c 

THEN  PRINTS  THE  ENTIRE  ARRAY  AND  ITS  AXIS  LABLES. 

NDU7GEB0 

c 

N0U7SEB0 

c 

QUIT 

SUBROUTINE  THAT  DISPLAYS  A  TERMINATION  MESSAGE. 

WGHT  2GB 

c 

TERMINATES  PLOTTING.  AND  TERMINATES  EXECUTION  OF  THE 

WGHT  268 

c 

PROGRAM. 

WGHT  270 

c 

WGHT  272 

c 

RU 

ARRAY  CONTAINING  UALUES  DF  THE  PORE  PRESSURE 

WGHT  274 

c 

PARAMETER  FOR  EACH  SOIL  TYPE. 

WGHT  27B 

c 

WGHT  278 

c 

SIN 

STANDARD  FUNCTION  THAT  CALCULATES  THE  SINE  OF  AN 

WGHT  280 

c 

ANGLE. 

WGHT  2B2 

c 

WGHT  284 

c 

SLTP 

ARRAY  CONTAINING  INDICES  OF  THE  SOIL  TYFE  AT  THE  BASEWGh 

c 

OF  EACH  SLICE. 

WGHT  2B8 

c 

WGHT  290 

c 

SOIL 

ARRAY  CONTAINING  INDICES  OF  THE  SOIL  TYPE  OF  EACH 

WGHT  292 

c 

SUBSECTION  WITHIN  A  SLICE. 

WGHT  294 

c 

WGHT  29G 

c 

SOILTP 

UARIABLE  CONTAINING  SOIL  TYPE  AT  THE  BASE  OF  A  SLICE 

•WGHT  298 

c 

WGHT  300 

c 

SOILUIT 

SUBROUTINE  THAT  CALCULATES  THE  TOTAL  WEIGHT  OF  A 

WGHT  302 

c 

SLICE  SUBSECTION. 

WGHT  304 

c 

WGHT  30G 

c 

SURC 

ARRAY  CONTAINING  X  COORDINATES  OF  THE  END  POINTS 

WCriT  308 

c 

DEFINING  THE  EXTENT  OF  LOADING. 

WGHT  310 

c 

WGHT  312 

c 

SURF 

ARRAY  CONTAINING  THE  X  AND  Y  COORDINATES  OF  POINTS 

WGHT  314 

c 

DEFINING  A  TRIAL  FAILURE  SURFACE. 

WGHT  316 

c 

WGHT  318 

c 

UALPHA 

ARRAY  CONTAINING  UALUES  OF  THE  HYDROSTATIC  FORCE 

WGHT  320 

c 

ACTING  AT  THE  BASE  OF  EACH  SLICE. 

WGHT  322 

c 

WGHT  324 

c 

UBETA 

ARRAY  CONTAINING  UALUES  OF  THE  HYDROSTATIC  FORCE 

WGHT  326 

c 

ACTING  AT  THE  TOP  OF  EACH  SLICE. 

WGHT  323 

c 

WGHT  330 

c 

UWAT 

UNITWEIGHT  OF  WATER.  IF  0.  IS  SPECIFIED  62.4  PCF 

WGHT  332 

c 

IS  ASSUMED. 

WGHT  334 

c 

WGHT  33G 

c 

UKCOEF 

UERTICAL  EARTHQUAKE  COEFFICIENT. 

WGHT  333 

c 

WGHT  340 

c 

WT 

WEIGHT  OF  A  SLICE  SUBSECTION. 

WGHT  342 

c 

WGHT  344 

c 

WTT 

ARRAY  CONTAINING  UALUES  OF  THE  WEIGHT  OF  EACH  SLICE. 

WGHT  346 

c 

WGHT  348 

c 

X 

ARRAY  CONTAINING  THE  POSITIONS  OF  THE  CENTERLINE  FOR 

WGHT  350 

c 

EACH  SLICE. 

WGHT  352 

c 

WGHT  354 

c 

XPIEZ 

ARRAY  CONTAINING  X  COORDINATES  OF  POINTS  DEFINING 

WGHT  356 

c 

WATER  SURFACE. 

WGHT  358 

c 

WGHT  360 

c 

V 

ARRAY  CONTAINING  Y  COORDINATES  OF  THE  PIEZOMETRIC 

WGHT  3B2 

c 

SURFACE5  FOR  A  SLICE. 

WGHT  3G4 

c 

WGHT  3GB 

c 

YB 

Y  COORDINATE  OF  THE  SLICE  BASE. 

WGHT  3G8 

c 

WGHT  370 

U83 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


YI        ARRAY  CONTAINING  THE  Y  COORDINATES  OF  INTERMEDIATE 
POINTS  DIU1DING  A  SLICE  INTO  SUBSECTIONS. 

YPIEZ     ARRAY  CONTAINING  Y  COORDINATES  OF  POINTS  DEFINING 
WATER  SURFACE. 

YT        Y  COORDINATE  OF  THE  TOP  OF  A  SLICE. 

YU        ARRAY  CONTAINING  Y  COORDINATE  OF  THE  PIEZOMETPIC 
SURFACE  FOR  EACH  SOIL  TYPE  OF  A  SLICE. 


COMMON  'BLK01/IANGL. IBLK. IEXIT, ICIRC. ILIMIT, IPLOT, IREAD. ISEAEC. 
1        IBLK2.  ISDIL. ISTR, ISURC. ISURF. IUAT.RD.TOL 

COMMON  /BLK02/BNDS  (100. 4). COO).  GAMMA  ( 20 ) .  GSAT  ( 20 ) . I TP ( 1 0 0  ) .  NBND. 
1  NSDIL. NTOP. PHI  (20  ) .  RU(  20  ) .  CU(  20  ) .  NP(  20  ) 

COMMON  /BLK03/UUAT, NP2. NPIEZ( 10 ) ,  XPIEZ( 10,  40 ) .  YPIEZ ( 10.  40 ) 

COMMON  /BLK04/DELTAC10).LOAD(10).NSURC.SUPC(10.2).YSURC(10,2) 

COMMON  /BLK05/NSURF,SURF(100»2) 

COMMON  /BLK08/NSLICE.X(300) 

COMMON  /BLK09/ALPHA ( 200 ) . BETA( 200 ) . DX( 200 ) . SLTP( 200 ) . UALPHA ( 200 ) . 
1  UBETA(200).UTT(200) 

COMMON  /BLK10/DELT(200).P(200) 

COMMON  /BLK11/CAUT.KCOEF.UKCOEF 

DIMENSION  YI(20).YU(20).JU(10).Y(10) 

REAL  KCOEF.LOAD 

INTEGER  SOIL(20),SOILTP,SLTP 

JT=1 

JB=2 

JS=1 

DO  13  J=1.NPZ 

JW(J)=2 
13  CONTINUE 

NTOPl=NTOP+l 


CALCULATE  THICKNESS  AND  MIDPOINT  OF  SLICE 


DO  2  I=1.NSLICE 
DX(I)=X(I+1)-X(I) 
X(I)=(X(I)+X(I+l))/2. 
DO  IB  J=l,NSOIL 
YW(J)=0. 
IE  CONTINUE 
C 

C   DETERMINE  TOP  OF  SLICE  AND  ITS  INCLINATION 
c   

C 

DO  3  J=JT,NTOP 

JTN=J 

CALL  INTSC2(BNDS(J.1).BNDS(J.2).BNDS(J.3).BNDS(J.4),0..0..0..0.. 
1   X(I).YT.INTS) 

IFdNTS.EQ.DGO  TO  5 
3   CONTINUE 
5  JT=JTN 

J=JTN 

BETA(I)=ATAN((BNDS(J.2)-BNDS(J,4))/(BNDS(J.1)-BNDS(J.3))) 


UGHT  372 
UGHT  374 
UGHT  376 
UGHT  378 
UGHT  380 
UGHT  3S? 
UGHT  384 
UGHT  386 
UGHT  388 
UGHT  390 
UGHT  332 
-UGHT  394 
-UGHT  396 
UGHT  398 
UGHT  400 
UGHT  402 
UGHT  404 
UGHT  40G 
UGHT  408 
UGHT  410 
UGHT  412 
UGHT  414 
UGHT  41S 
UGHT  418 
UGHT  420 
UGHT  422 
UGHT  424 
UGHT  42G 
UGHT  428 
UGHT  430 
UGHT  432 
UGHT  434 
UGHT  436 
UGHT  438 
UGHT  440 
UGHT  442_ 
UGHT  444 
UGHT  446 
UGHT  448 
UGHT  450 
UGHT  452 
UGHT  454 
UGHT  456 
UGHT  45J_ 
UGHT  460 
UGHT  462 
UGHT  464 
UGHT  466 
UGHT  468 
UGHT  470 
UGHT  472 
UGHT  474 
UGHT  476 
UGHT  478 
UGHT  480 
UGHT  482 
UGHT  484 
UGHT  486 
UGHT  488 
UGHT  490 
UGHT  492 
UGHT  494 


l»ftl 


c 
c 
c 
c 


DETERMINE  BASE  OF  SLICE  AND  ITS  INCLINATION 


DO  4  J=JB.NSURF 

JTN=J 

CALL  INTSC2(SURFCJ-1, 1) . SURF( J-l ,2) . SURFC J. 1 ) . SURFC J. 2) . 0. . 0. . 0. 
1    O..X(I),YB.INTS) 

IF(INTS.E0.1)GO  TO  E 
4  CONTINUE 
B  JB=JTN 

J=JTN 

ALPHA(I)=ATAN((SURF(J-1.2)-SURF(J,2))/(5URFU-1.1)-SURF(J,1))) 

CA=COS(ALPHA(I)) 


CHECK  IF  TRIAL  SURFACE  IS  EELOU  THE  GROUND  SURFACE 


TRIAL  FAILURE  SURFACE 
EXTENDS  ABOUE  THE 
GROUND  SURFACE 


IF(YT.GT.YB)GO  TO  18 
URITE(G.lOl) 
101  FORMAT (/•. 

110X*«««»**  INPUT  ERROR 

110X*»*«»» 

H0Xf*«*»»** 

KEY=  72 

URITE(G,72)KEY,I.Xm.YT.YB.DX(I) 
72  FORMAT is,*     XXX  KEY=*. 14,*  XXX  *, 1 10, 5F15.5) 
IF(ISEARC.EQ.0)GO  TO  22 
URITE(G.104)NSURF 

104  FORMAT (•//, 

110X.*THE  TRIAL  FAILURE  SURFACE  IN  QUESTION  IS  DEFINED*. 
110X,*EV  THE  FOLLOWING*, 13, 
1    *  COORDINATE  POINTS*,///. 
1    12X. *POINT*. GX, *X-SURF*. 6X, *Y-SURF*. / 
1   13X.*N0.*.8X,*(FT)*.8X.*(FT)*./) 
URITE(6,105HJ.SURF(J.1),SURF(J,2),J=1,NSURF) 

105  F0RMAT(12X,I3,2X,2F12.2) 
22  CALL  PLT4 

CALL  QUIT 
18  K=l 

SOIL(l)=ITP(JT) 
IF(NTOP.EQ.NBND)GO  TO  12 


*/ 
*/ 
*/ 
*/ 
*•) 


DETERMINE  POSITIONS  OF  SOIL  TYPE  INTERFACES,  IF  ANY 
AND  DETERMINE  SOIL  TYPE  AT  BASE  OF  SLICE. 


DO  9  J=NT0P1.NBND 

CALL  INTSC2(BNDS(J,1),BNDS(J,2),BNDS(J,3).BNDS(J.4).0.,0..0.,0. 
1    X(I),YI(K).INTS) 


IFCINTS.NE.DGO  TO  3 
IF(YI(K).LE.YB)GO  TO 
K=K+1 

SOIL(K)=ITP(J) 
9  CONTINUE 
12   SLTP(I)=SOIL(K) 
SDILTP=SLTP(I) 
UALPHA(I)=0. 
UBETA(I)=0. 
IFCIWAT.EQ.OGO   TO   10 


12 


UGHT  43S 
UGHT  498 
UIGHT  500 
UGHT  502 
UGHT  504 
UGHT  50G 
UGHT  508 
UGHT  510 
UGHT  512 
UGHT  514 
UGHT  51G 
UGHT  518 
UGHT  520 
UGHT  522 
UGHT  524 
UGHT  52G 
UGHT  528 
UGHT  530 
UGHT  532 
UGHT  534 
UGHT  53G 
UGHT  538 
UGHT  540 
UGHT  542 
UGHT  544 
UGHT  54G 
UGHT  54B 
KEY  72 
URITEKEY 
KEYFORMT 
UGHT  550 
UGHT  552 
UGHT  554 
UGHT  55G 
UGHT  558 
UGHT  5G0 
UGHT  5G2 
UGHT  5G4 
UGHT  5GG 
UGHT  5G8 
UGHT  570 
UGHT  572 
UGHT  574 
UGHT  57G 
UGriT  578 
UGHT  580 
UGHT  582 
UGHT  584 
UGHT  58S 
UGHT  588 
UGHT  530 
UGHT  592 
UGHT  594 
UGHT  59G 
UGHT  598 
UGHT  GOO 
UGHT  G02 
UGHT  G04 
UGHT  GOG 
UGHT  E08 
UGHT  G10 
UGHT  G12 
UGHT  G14 
UGHT  GIG 
UGHT  G18 


U8< 


C 
c 
c 
c 


c 
c 
c 
c 
c 

c 
c 
c 
c 
c 


c 

c 
c 
c 
c 


DETERMINE  POSITION  OF  WATER  TABLE  FOR  ALL  SOILS  IF  PRESENT 


DO   25   N=1.NPZ 
JJ=JW(N) 
NN=NPIEZ(N) 
DO   7   J=JJ.NN 
JTN=J 

CALL    INTSC2(XPIEZ(N,J-1).YPIEZ(N.J-1),XPIEZ(N.J).YPIEZ(N.J), 
1        0..0..0.,O..X(I),Y(N),INTS) 
IFdNTS.EQ.DGO  TO  8 

7  CONTINUE 

8  JW(N)=JTN 
25  CONTINUE 

DO  2E  J-l.K 
YU(J)=Y(NPCSOIL<J)» 
2E  CONTINUE 

IF(YWdO.GT.YB)UALPHA(I)  =  (YW(K)-YB)»UWAT»DX(I)/'CA 
IF(YW(l).LT.YT)GO  TO  10 


CALCULATE  RESULTANT  WATER  FORCE  AT  TOP  OF  SLICE.  IF  PRESENT 


UBETA(I)=DX(I)«(YW(l)-YT)«UUIAT/COS(BETA(D) 


CALCULATE  SLICE  WEIGHT 


10  IF(K.EQ.l)CO  TO  14 

CALL  SOILWT ( YT. YI ( 1 ) , ITP( JT ) .  YW(  1 ) .  WTT(  I ) .  I ) 
GO  TO  15 

14  CALL  SOILWT(YT,YB,ITP(JT).YW(l).WTT(I),I) 
GO  TO  21 

15  IF(K.EQ.2)G0  TO  17 
K1=K-1 

DO  11  J=2.K1 

CALL  SOILWT(YI(J-l),YI(J),SOIL(J).YW(J).UT,I) 

WTT(I)=WTT(I)+WT 

11  CONTINUE 

17  CALL  SOILWTCYI(K-l).YB.SOIL(K).YW(K),UT.I) 

WTT(I)=WTT(I)+WT 
21  IF(YW(K).LT.YB.AND.RU(SOILTP).EQ.O. . AND.CU(SOILTP) .EQ. 0. )GO  TO 

IF(RU(SOILTP).EO.0..AND.CU(SOILTP).EQ.0. )GO  TO  24 

UALPHA  ( I )  =UALPHA ( I )  +  ( WTT ( I ) »RU ( SOILTP )  +DX ( I ) *CU ( SO ILTP ) ) /CA 
24  IF(KCOEF.EO.O..AND.UKCOEF.EQ.O. )GO  TO  23 

UALPHA( I i=UALPHA( I )-WTT( I)«(KCOEF»SIN( ALPHA( I ) )+UKCOEF«CA) 

I F ( UALPHA  C I ) . LT . CAUT ) UALPHA ( I ) =CAUT 
23  P(I)=0. 

DELT(I)=0. 

IF(ISURC.EQ.0)GO  TO  2 


ASSIGN  BOUNDARY  LOAD  TO  SLICE,  IF  ANY 


DD  19  J=JS.NSURC 

JTN=J 

IF(X(I).LT.SURC(J,l))GO  TO  20 

IF(X(I).GT.SURC(J,2))G0  TO  19 

DELT(I)=DELTA(J) 

P(I)=LOAD(J)»DX(I) 

GO  TO  20 

19  CONTINUE 

20  JS=JTN 

2  CONTINUE 
RETURN 
END 
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SUBROUTINE  SOILWTCUB.LB.ST, YW. WT. I ) 


C 
C 
C 
C 
C 
C 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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SUBROUTINE  SOILWT 


C 
C 
C 
C 
C 

c 
c 
c 
c 
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FUNCTION  - 

CALCULATES  THE  TOTAL  WEIGHT  OF  A  SLICE  SUBSECTION. 


DEFINITIONS 
A 

AE 
AT 
DX 
GAMMA 

GSAT 

I 

LB 

ST 

UB 

WT 

YW 


TOTAL  AREA  OF  SLICE  SUBSECTION. 

AREA  OF  SLICE  SUBSECTION  BELOW  FREEWATER  SURFACE. 

AREA  OF  SLICE  SUBSECTION  ABOUE  FREEWATEP  SURFACE. 

ARRAY  CONTAINING  UALUES  OF  THE  WIDTH  OF  EACH  SLICE. 

ARPAY  CONTAINING  UALUES  OF  THE  TOTAL  UNIT  WEIGHT  FOR 
EACH  SOIL  TYPE. 

ARRAY  CONTAINING  UALUES  OF  THE  SATURATED  UNIT  WEIGHT 
FOR  EACH  SOIL  TYPE. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

Y  COORDINATE  OF  SLICE  BASE. 
SOIL  TYPE  OF  SUBSECTION. 

Y  COORDINATE  OF  TOP  OF  SLICE. 
WEIGHT  OF  SLICE  SUBSECTION. 

Y  COORDINATE  OF  PIEZOMETRIC  SURFACES  FOR  SLICE. 


COMMON  /BLK02/BNDSC 1 00, 4 ) . C( 20 ) , GAMMA ( 20 ) . GSAT ( 20 ) , ITPC 100) , NBMD. 
1  NSOIL. NTDP. PHI (20 ) , RU( 20 ) . CU( 20 ) . NP( 20  ) 

COMMON  /BLK09/ALPHA( 200 ) ,  BETA( 200 ) . DX ( 200 ) . SLTP ( 200 ) . UALPHfi ( 200  ) . 
1  UBETA(200),WTT(200) 

INTEGER  ST 

REAL  LB 


CHECK  FOR  WATER  TABLE  POSITION.  IF  PRESENT 


IF(YW.LT.UB.AND.YW.GT.LB)GO  TO  2 


CALCULATE  DRY  WEIGHT  OF  SLICE  SUBAREA 


A=DX(I)»(UB-LB) 
WT=A«GANMA(ST) 
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SLWT 

SLWT 

SLWT 

SLWT 

SLWT 

SLWT  100 

SLWT  102 

SLWT  104 

SLWT  ICG 

SLWT  108 

SLWT  110 

SLWT  112 

SLWT  114 

SLWT  116 

SLWT  118 

SLWT  120 

SLWT  122 

SLWT  124 

SLWT  125 

SLWT  128 
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2E 
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3E 
38 
4  0 
42 

44 
4E 
43 
50 
5? 
54 
5b 
58 
BO 
E2 
E4 
EE 
B? 
70 
72 
74 
7& 

re 
BO 

8? 

84 

BE 
88 
90 

92 
94 
9E 
98 


U67 


C   CALCULATE  SATURATED  WEIGHT  OF  SLICE  SUBAREA,  IF  SATURATED  SLUT  132 

c   SLUT  134 

C  SLUT  13B 

IF(YU.LT.UB)RETURM  SLUT  138 

UT=A«GSAT(ST)  SLUT  140 

RETURN  SLUT  142 

C  SLUT  144 

c   SLUT  1 46 

C   CALCULATE  UEIGHT  OF  PARTIALLY  SATURATED  SLICE  SUBAREA,  IF  APPLlCABLESLUT  14e 

c   SLUT  150 

C  SLUT  152 

2   AT=DX(I)«(UB-YU)  SLUT  154 

AB=DX(I)»(YU-LB)  SLUT  15G 

UT=AT«GAMMA(ST)+AB«GSAT(ST)  SLUT  153 

RETURM  SLUT  ISO 

EMD  SLUT  1S2 


i.mh 


SUBROUTINE  FACTR 
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SUBROUTINE  FACTR 


FUNCTIONS  - 

CALCULATES  A-TERMS  FOR  FACTOR  OF  SAFETY  CALCULATION. 

CHECKS  FOR  CONDITION  WHEN  THE  NORMAL  FORCE  AT  THE  BASE  OF  A 
SLICE  IS  NEGATIVE. 

CALCULATES  FACTOR  OF  SAFETY  WITH  NEUTON-RALPHSON  ITERATION. 

IF  NO  CONVERGENCE  BY  TEN  ITERATIONS,  SURFACE  COORDINATES 
ARE  PRINTED  AND  LACK  OF  CONUERGENCE  INDICATED. 

PRINTS  FACTOR  OF  SAFETY  IF  ANALYSIS  IS  FOR  SPECIFIED  TRIAL 
FAILURE  SURFACE. 


DEFINITIONS  - 

ABS       STANDARD  FUNCTION  WHICH  DETERMINES  THE  ABSOLUTE 
UALUE  OF  A  NUMBER. 

ALPHA     ARRAY  CONTAINING  UALUES  OF  THE  ANGLES  OF  THE  BASE  OF 
EACH  SLICE. 

Al        TERM  USED  IN  FACTOR  OF  SAFETY  CALCULATION. 

A2        TERM  USED  IN  FACTOR  OF  SAFETY  CALCULATION. 

A3        TERM  USED  IN  FACTOR  OF  SAFETY  CALCULATION. 

BETA      ARRAY  CONTAINING  UALUES  OF  THE  ANGLE  OF  THE  TOP  OF 
EACH  SLICE. 

BOT       DENOMINATOR  OF  FACTOR  OF  SAFETY  EXPRESSION. 

C         APRAY  CONTAINING  UALUES  OF  MOHR-COULOMB  COHESION  FCR 
EACH  SOIL  TYPE. 

CA        COSINE  OF  ANGLE  ALPHA. 

CB        COSINE  OF  ANGLE  BETA. 

CD        COSINE  OF  ANGLE  DELT. 

COS       STANDARD  FUNCTION  THAT  CALCULATES  THE  COSINE  OF  AN 
ANGLE. 

CSA       ARRAY  CONTAINING  UALUES  OF  MOHR-COULOMB  COHESION  rOR 
EACH  SPECIFIED  DIRECTION  RANGE  OF  EACH  ANISOTROPIC 
SOIL  TYPE. 

CSLICE    COHESION  AT  THE  BASE  OF  A  SLICE. 

DELT      ARRAY  CONTAINING  UALUES  OF  INCLINATION  OF  THE 
BOUNDARY  LOAD  FOR  EACH  SLICE. 

DIREC     ARRAY  CONTAINING  UALUES  DEFINING  THE  COUNTERCLDCKUIS17 
LIMIT  OF  EACH  DIRECTION  RANGE  OF  EACH  ANISOTROPIC 
SOIL  TYPE. 


FCTP 
FCTP 
FCTR 
FCTR 
FCTP 
■FCTP 
FCTR 
FCTR 
FCTP 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTP 
FCTP 
FCTR 
FCTP 
FCTR 
FCTR 
FCTP 
FCTR 
FCTR 
FCTP 
FCTR 
FCTR 
FCTR 
FCTR 
FCTP 
FCTR 
FCTP 
FCTP 
FCTP 
FCTR 
FCTP 
FCTP 
FCTP 
FCTP 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
FCTR 
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4  0 

42 
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50 

52 

54 
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70 
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64 
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9C 

52 

54 

5E 
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110 
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114 

116 
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126 

128 
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c 

DX 

c 

c 

F 

c 

c 

c 

FNEW 

c 

c 

FOLD 

c 

c 

FS 

c 

c 

Fl 

c 

c 

c 

I 

c 

c 

ISEARC 

c 

c 

c 

ISTR 

c 

c 

c 

ITPA 

c 

c 

c 
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c 

c 

K 

c 

c 

KCOEF 

c 

c 

ME 

c 

c 

c 

ND 

c 

c 

NDIREC 

c 

c 

c 

NSAL 

c 

c 

c 

NSLICE 

c 

c 

NSURF 

c 

c 

P 

c 

c 

c 

PHI 

c 

c 

c 

PHIA 

c 

c 

c 

c 

RD 

c 

c 

SA 

c 

c 

SB 

c 

c 

SD 

c 

c 

SIN 

c 

c 

ARRAY  CONTAINING  UALUES  OF  THE  UIDTH  OF   EACH  5LICE. 

CRITICAL  LOCAL  FACTOR  OF  SAFETY  USED  TO  DETECT  A 
NEGATIUE  NORMAL  FORCE  ACTING  ON  A  SLICE. 

NEW  FACTOR  OF  SAFETY  USED  DURING  ITERATIUE  FROCESS. 

OLD  FACTOR-  OF  SAFETY  USED  DURING  ITERATIUE  PROCESS. 

FACTOR  OF  SAFETY.   '  ' 

LARGEST  CRITICAL  LOCAL  FACTOR  OF  SAFETY  USED  TO 
DETECT  A  NEGATIUE  NORMAL  FORCE  ACTING  ON  A  SLICE. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  FROCRAM 
AFFECTED  BY  THE  SEARCHIMG  SUBROUTINE  RANDOM. 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM 
HANDLING  THE  ANISOTROPIC  SOIL  STRENGTH  DATA. 

ARRAY  CONTAINING  THE  INDICES  OF  ANISOTROPIC  SOIL 
TYPES. 

INDEX  UARIAELE  FOR  ARRAY  SUBSCRIPTING. 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

EARTHQUAKE  COEFFICIENT. 

CONTROL  CODE  WHICH  INDICATES  MODIFIED  BISHOP 
FACTOR  OF  SAFETY  CALCULATION  (IF  MB=1). 

DO  LOOP  TERMINATOR. 

ARRAY  CONTAINING  THE  NUMBER  OF  DIRECTION  RANGES  FOR 
EACH  ANISOTROPIC  SOIL  TYPE. 

NUMBER  OF  SOIL  TYPES  HAUING  ANISOTROPIC  STRENGTH 
PROPERTIES. 

NUMBER  OF  SLICES  WHICH  THE  SLIDING  MASS  IS  DIUIDED. 

NUMBER  OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 

ARRAY  CONTAINING  UALUES  OF  THE  BOUNDARY  LOAD  APPLIED 
TO  EACH  SLICE. 

ARRAY  CONTAINING  UALUES  OF  THE  MOHR-COULOMB  ANGLE  OF 
INTERNAL  FRICTION  FOR  EACH  SOIL  TYPE. 

ARRAY  CONTAINING  UALUES  OF  THE  MOHR-COULOMB  ANGLE  OF 
INTERNAL  FRICTION  FOR  EACH  SPECIFIED  DIRECTION  RANGE 
OF  EACH  ANISOTROPIC  SOIL  TYPE. 

FACTOR  FOR  CONUERSION  OF  DEGREES  TO  RADIANS. 

SINE  OF  ANGLE  ALPHA. 

SINE  OF  ANGLE  BETA. 

SINE  OF  ANGLE  DELT. 

STANDARD  FUNCTION  THAT  CALCULATES  THE  SINE  OF  AN 
ANGLE. 


FCTP  136 
FCTP  140 
FCTP  142 
FCTP  144 
FCTP  14G 
FCTP  148 
FCTR  150 
FCTP  152 
FCTR  154 
FCTR  15G 
FCTR  15B 
FCTR  ISO 
FCTR  1E2 
FCTP  1G4 
FCTR  1G6 
FCTR  1E8 
FCTR  170 
FCTR  172 
FCTP  174 
FCTP  17G 
FCTP  178 
FCTR  180 
FCTP  182 
FCTP  184 
FCTP  18G 
FCTR  188 
FCTR  ISO 
FCTR  192 
FCTR  194 
FCTR  19B 
FCTR  198 
MAR77EB0 
MAP77EB0 
MhR77EB0 
FCTR  200 
FCTR  202 
FCTR  204 
FCTR  20G 
FCTP  208 
FCTR  210 
FCTP  212 
FCTR  214 
FCTR  21G 
FCTR  218 
FCTR  220 
FCTR  222 
FCTP  224 
FCTR  22G 
FCTP  228 
FCTR  230 
FCTR  232 
FCTR  234 
FCTR  23E 
FCTR  238 
FCTR  240 
FCTR  242 
FCTR  244 
FCTR  246 
FCTR  248 
FCTR  250 
FCTR  252 
FCTR  254 
FCTR  25E 
FCTR  258 
FCTR  260 
FCTR  262 
FCTR  2B4 
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SLTP      ARRAY  CONTAINING  INDICES  OF  THE  SOIL  TYPE  AT  THE  BASEFCTP  2S6 
OF  EACH  SLICE.  FCTP  2E8 

FCTP  270 
SOILTP    UARIABLE  CONTAINING  SOIL  TYPE  AT  THE  BASE  OF  A  SLICE. FCTP  272 

FCTP  274 

FCTP  27B 

SUMB      DENOMINATOR  OF  FIRST  DERIUATIUE  OF  THE  FACTOR  OF     FCTP  278 

SAFETY  EXPRESSION.  FCTP  280 

FCTP  262 

SUNT      NUMERATOR  OF  FIRST  DERIUATIUE  OF  THE  FACTOR  OF       FCTP  284 

SAFETY  EXPRESSION.  FCTR  285 

FCTP  288 

SURF      ARRAY  CONTAINING  THE  X  AND  Y  COORDINATES  OF  POINTS   FCTP  290 

DEFINING  A  TRIAL  FAILURE  SURFACE.  FCTR  292 

FCTR  294 
TA        TANGENT  OF  ANGLE  ALPHA.  FCTR  29G 

FCTP  298 

TAN       STANDARD  FUNCTION  THAT  CALCULATES  THE  SINE  OF  AN     FCTR  300 

■  ANGLE.  FCTR  302 

FCTP  304 
TP        TANGENT  OF  ANGLE  PHI.  FCTR  30G 

FCTR  308 

UALPHA    ARRAY  CONTAINING  UALUES  OF  THE  HYDROSTATIC  FORCE     FCTP  310 

ACTING  AT  THE  BASE  OF  EACH  SLICE.  FCTR  312 

FCTR  314 

UBETA     ARRAY  CONTAINING  UALUES  OF  THE  HYDROSTATIC  FORCE     FCTR  31G 

ACTING  AT  THE  TOP  OF  EACH  SLICE.  FCTR  3ie 

FCTP  320 
UKCOEF    UERTICAL  EARTHQUAKE  COEFFICIENT.  FCTP  322 

FCTP  324 
UTT       ARRAY  CONTAINING  UALUES  OF  THE  WEIGHT  OF  EACH  SLICE.  FCTP  32E 

FCTR  328 

FCTR  330 

FCTR  332 

FCTR  334 

COMMON  /'BLKOl-'IANGL.IBLK.IEXIT.ICIRC.ILIMIT.IPLOT.IREAD.ISEARC.    FCTP  33G 

1        IBLK2.ISDIL.ISTR.ISURC.ISURF.IUAT.RD.T0L  FCTP  338 

COMMON  /BLK02/BNDS(100.4),C(20).GAMMA(20).GSAT(20). ITP( 100 ) , NEND.  FCTP  340 

1  NSOIL.NTOP.PHI(20),RU(20).CU(20).NP(20)  FCTP  342 

COMMON  /ELK05/NSURF.SURF(100.2)  FCTR  344 

COMMON  /BLK07/-CSA(10.10),DIREC(10.10).ITPAC10),NDIRECtlO).NSAL.    FCTR  34G 

1  PHIA(IO.IO)  FCTR  348 

COMMON  /-BLK08/NSLICE.X(300)  FCTR  350 

COMMON  /ELK03/ALPHA(200).BETA(200).DX(200).SLTP(200).UALPHAC200),  FCTR  352 

1  UBETA(200),UTT(200)  FCTR  354 

COMMON  /ELK10/DELTC200).P(200)  FCTR  35S 

COMMON  /BLK11/CAUT.KCOEF. UKCOEF  FCTR  358 

COMMON  /BLK 12/ANGS1 . ANGS2. BPT , EPT, FRTYFU, FS. FSS ( 12  I . JJ, NSURFS (12). FCTR  3G0 


1  PERPEN.SURFS(100,2.12).T5URF,YBPT,YEPT.YI1IN 

COMMON  /BLK15/  M.MB 
DIMENSION  A1(200),A2(200),A3(200) 

EQUIUALENCE  ( ALPHA( 1) , Al ( 1 ) ).  (BETAC 1 ), A2( 1 ) ).  (DXU ).A3(1) ) 
INTEGER  SLTP. SOILTP 
REAL  KCOEF 
F1=0. 


CALCULATE  REQUIRED  ANGLE  FUNCTIONS 


DO  2  I=1.NSLICE 

SD=SIN(DELT(I) 

CD=COS(DELT(I) 

SB=SIN(BETA(I) 

CB=COS(BETA(I) 

SA=SIN(ALPHA(I 

CA=COS(ALPHA(I 

TA=SA/CA 


FCTR  3G2 
FCTR  3G3 
FCTR  3G4 
FCTR  3GG 
FCTR  3G8 
FCTR  370 
FCTP  372 
FCTP  374 
FCTP  37G 
FCTP  378 
FCTP  380 
FCTR  382 
FCTR  384 
FCTR  38G 
FCTR  388 
FCTR  390 
FCTR  392 
FCTR  394 
FCTP  39G 
FCTR  398 
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c 
c 
c 
c 
c 
c 


c 

c 
c 
c 
c 


c 
c 
c 
c 
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SOILTP=SLTP(I) 

TP=Tr,N(PHI(SOILTP)«RD) 

CSLICE=C(SOILTP) 

IF(I5TR.EO.0)CO  TO  3 

DO  5  J^l.NSAL 

IF(SLTP(I).NE.ITPA(J))GO  TO  5 

ND=NDIREC(J) 

IF(ALPHA(I).GE.DIREC(J,l»GO  TO  8 

TP=TAN(PHIA(J.1)«RD) 

CSLICE=CSA(J, 1) 

GO  TO  3 

DO  4  K=2,ND 

IFC(ALPHA(I).LT.DIRECU,K-m.OR.(ALPHACI).GE.DIREC(J,Kn)GO  TO  4 

TP=TAN(PHIA(J,K)»RD) 

CSLICE=CSA(J.K) 

GO  TO  3 

CONTINUE 

CONTINUE 


CHECK  IF  THE  DENOMINATOR  OF  THE  EXPRESSION  FOR 
THE  EFFECTIUE  NORMAL  FORCE  IS  ZERO  OR  NEGATIUE 


3  F=-TA«TP 

IF(F.GT.F1)F1=F 


CALCULATE  A-TERMS  REQUIRED  FOR  FACTOR  OF  SAFETY  CALCULATION 


AH  I  )=CSLICE*D>!(  I  )/rA**2+TP»(UTT(  I  )*(  1 .  -KCOEF«TA-UKCOEF  )-UALPHA(  I 
1    /CA+UBETAC I )«(CB+SE»TA)+PU)»(CD+SD*TA) ) 

A2(I)=WTT(I)*(TAiKC0EF-UKC0EF«TA)+UBETA(I)*(CB*TA-SB)+P(I)»(CD»Tn 
1    SD) 

IF(flD.EQ.l)  A1(I)=A1U)«CA 

IF(MB.EQ.l)  A2(I)=A2(I)«CA 

A3(I)=TA*TP 
2  CONTINUE 


CALCULATE  THE  FACTOR  OF  SAFETY 
BY  THE  NEUTON  RAPHSON  METHOD 


F0LD=1.5 

DO  10  J=l,10 

SUMT=0. 

SUMB=0. 

DO  G  I=1,NSLICE 

B0T=F0LD+A3(I) 

?UMT=SUMT+( Al ( I )-F0LD*A2( I ) VBOT 

SUMB=SUMB+ ( Al ( I ) +A2 ( I) «A3 ( I ) )/B0T»»2 

CONTINUE 

FNEUI=FOLD+SUMT/SUMB 


CHECK   FOR  CONUERGENCE 


IF(ABS(FNEW-FOLD).LT. 
10   FOLD=FNEW 
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STATEMENT  OF  LACK  OF  CONUERGENCE 


URITEC6.103) 

03  FORMAT  C//, 
110X, *FACTOR  OF  SAFETY  CALCULATION  HAS  CONE  THROUGH  TEN  ITERATIONS 

FS=FNEU 

FNEU=  500. 

IF(ISEARC.EQ.O)  URITEC6. 101 )FS 

IF(ISEARC.EQ.0)GO  TO  15 

URITECE.104)NSURF 

04  FORMATC///. 
110X,*THE  TRIAL  FAILURE  SURFACE  IN  QUESTION  IS  DEFINED*./. 
110X,*BY  THE  FOLLOWING*. 13, 
1    *  COORDINATE  POINTS/.///. 
1    12X.  /POINT*. EX. *X-SURF*. EX, *Y-SURF*. / 
1    13X.*N0.*.8X,*CFT)*,8X,*CFT)*,/) 

URITEC6.;05HI,SURFCI.1),SURFCI.2),I  =  1,NSURF) 

05  FORMATC 12X. 13. 2X.2F12. 2) 
URITECG.IODFS 


PRINT  FACTOR  OF  SAFETY 


15  FS=FNEU 

IFdSEARC.EQ.DGO  TO  7 
URITECG.IODFS 

101  FORMATC////.10X, /FACTOR  OF  SAFETY  FOR  THE  PRECEDING  SPECIFIED*, 
1   *  SURFACE  =*.F7.3) 

IF(MB.EQ.l)  URITEC6.107) 
107  FORMATC//. 10X.*UARNING  -  FACTOR  OF  SAFETY  IS  CALCULATED  BY  THE  *, 
1    *MODIFIED  BISHOP*, /, 20X, *METHOD.  THIS  METHOD  IS  UfiLID  ONLY  *, 
1    *IF  THE  FAILURE  SURFACE*. /, 20X, *APPROXIMATES  A  CIRCLE.*; 
IFCFS.GT.FDRETURN 
URITECG. 10E) 
10G  FORMAT (//. 

HOX*»««  THE  AEOUE  FACTOR  OF  SAFETY  IS  MISLEADING  •••*) 
RETURN 
7  IFCFS.GT.FDRETURN 
URITECG. 102)NSURF 
URITECG.105HI.SURFCI,D,SURF(I,2),I  =  1.NSURF) 

102  FORMATC//. 

110X*THE  FACTOR  OF  SAFETY  FOR  THE  TRIAL  FAILURE  SURFACE  DEFINED*/ 
110X*BY  THE  COORDINATES  LISTED  BELOU  IS  MISLEADING.*/// 
110X*FAILURE  SURFACE  DEFINED  BY*, 13.*  COORDINATE  POINTS*/// 
1 12X*P0INT*. GX, *X-SURF*. GX. *Y-5URF*.  / 
1 1 3X*N0. *. 8X. * C FT )*.8X,*( FT )*,//) 

URITECG.IODFS 

FS=  500. 

RETURN 

END 
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SCAL  132 
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COMMON  /BLK 12'ANGSl , ANGS2. BPT. EPT, FRTYFU, FS. FSS( 12 ) . JJ. NSURFS( 12 ) . SCAL  162 

1  PERPEN.SURFS(100,2.12).T5URF.YBPT.YEPT,YMIN         SCAL  164 

COMMON  /BLK14/SCLE 

REAL  MAXX.MAXY. LIMIT 


DETERMINE  SCALE  OF  PLOTS 


2 
3 


MAXX=BNDS(NT0P.3) 

MAXY=BNDS(1.2) 

DO  8  I=l,NTOP 

IF(BNDSU,4).GT.MAXY)MAXY=BNDS(I.4) 
8  CONTINUE 

IF(NTOP.EQ.NBND)GO  TO  3 

NTOPl=NTOP+l 

DO  2  I=NT0P1.NBND 

IF(BNDS(I.3).GT.MAXX)MAXX=BNDS(I.3) 

CONTINUE 

IF(IUAT.EQ.0)GO  TO  4 

DO  10  N=1.NPZ 

M=NPIEZ(N) 

IF(XPIEZ(N,M).GT.MAXX)MAXX=XPIEZ(N,m 
10  CONTINUE 
4  IF(ILIMIT.EQ.0)GO  TO  5 

DO  G  I=1,NLIMIT 

IF(LIMIT(I.3).GT.MAXX)MAXX=LIMIT(I.3) 

CONTINUE 

IF(I5URC.EO.0)GO  TO  7 

IF(SURC(NSURC.2).GT.MAXX)MAXX=SURC(NSURC2) 

DO  9  I=1.NSURC 

Y=YSURC(I.l)»50./47. 

IF(Y.GT.MAXY)MAXY=Y 

Y=YSURC(I.2)»50./47. 

IF(Y.GT.MAXY)MAXY=Y 

CONTINUE 

SCLE=MAXX/8. 

MAXX=5./8.«MAXX 


G 
5 


CHECK  IF  UERTICAL  SCALE  CONTROLS 


IF(MAXY.GT.MAXX)SCLE=MAXY/5. 

RETURN 

END 


SCAL 

166 

SCAL 

168 

SCAL 

170 

SCAL 

172 

SCAL 

174 

SCAL 

17G 

SCAL 

178 

SCAL 

1B0 

SCAL 

182 

SCAL 

184 

SCAL 

186 

SCAL 

188 

SCAL 

190 

SCAL 

1S2 

SCAL 

194 

SCAL 

196 

SCAL 

198 

SCAL 

199 

SCAL 

200 

SCAL 

201 

SCAL 

202 

SCAL 

203 

SCAi. 

204 

SCAL 

206 

SCAL 

208 

SCAL 

210 

SCAL 

212 

SCAL 

214 

SCAL 

216 

SCAL 

218 

SCAL 

220 

SCAL 

222 

SCAL 

224 

SCAL 

226 

SCAL 

228 

SCAL 

230 

SCAL 

232 

SCAL 

234 

SCAL 

236 

SCAL 

238 

SCAL 

240 

SCAL 

242 

SCAL 

244 

SCAL 

246 

l49b 


SUBROUTINE  PLOTIN  PLOT   2 

c        pLQT   g 

C  SUBROUTINE  PLOTIN                       PLOT   8 

C   PLOT   10 

c   PL0T   12 

c  PLOT   14 

C   FUNCTION  -  PLOT   IE 

C  PLOT   18 

C  PLOTS  PROBLEM  GEOMETRY  WITH  A  PLOTTING  DEUICE.                PLOT  20 

C  _  PlOT  22 

c  PLOT   26 

C   DEFINITIONS  -  PLOT  28 

c  PLOT   30 

C  AXIS      EXTERNAL  SUBROUTINE  USED  TO  PLOT  A  COORDINATE  AXIS.   PLOT   32 

C  PLOT   34 

C  BNDS      AN  ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTS^LOT   36 

C  DEFINING  THE  GROUND  SURFACE  AND  SUBSURFACE           PLOT   38 

C  BOUNDARIES.                                       PLOT   40 

c  PLOT   42 

C  COS       STANDARD  FUNCTION  THAT  CALCULATES  THE  COSINE  OF  AN   PLOT   44 

C  ANGLE.                                            PLOT   46 

C  PLOT   48 

C  DELTA     ARRAY  CONTAINING  UALUES  OF  LOAD  DIRECTION  FOR  EACH   PLOT   50 

C  BOUNDARY  LOAD  SPECIFIED.                           PLOT   52 

C  PLOT   54 

C  DX        HORIZONTAL  COMPONENT  OF  A  SCALED  BOUNDARY  LOAD.      PLOT   5B 

c  PLOT   58 

C  DY        UERTICAL  COMPONENT  OF  A  SCALED  BOUNDARY  LOAD.        PLOT  BO 

C  PLOT   B2 

C  FS        FACTOR  OF  SAFETY.                                  N0U7BEB0 

£  N0U76EB0 

C  I         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.               PLOT   64 

£  PLOT   66 

C  IBLK      CONTROL  CODE  UHICH  ACTIUATES  GENERATION  OF  A  SLIDING  PLOT   68 

C  BLOCK  SURFACE.                                   PLOT  70 

E  ,    .-                                                     pLOT   72 

C  ILIMIT    CONTPOL  CODE  UHICH  ACTIUATES  PORTIONS  OF  THE  PFOCRAM  PLOT   74 

C  AFFECTED  BY  SEARCHING  LINITS  ESTABLISHED  EY          PLOT   76 

C  SUBROUTINE  LIMITS.                                 PLOT   78 

£  PLOT   80 

C  IPLOT     CONTROL  CODE  WHICH  CONTROLS  TRANSLATION  OF  AXE5  FOR   PLOT   82 

C  PLOTTED  OUTPUT.                                    PLOT   84 

C  PLOT   RS 

C  ISEARC    CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  PLOT   88 

C  AFFECTED  BY  THE  SEARCHING  SUBROUTINES  RANDOM  AND     PLOT   90 

C  BLOCK.                                            PLOT   92 

£  PLOT   94 

C  ISURC     CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM  PLOT   96 

'-    '  HANDLING  THE  SURCHARGE  LOADS  SPECIFIED  BY  SUBPOUTINE  PLOT   98 

C  LOADS.                                         Pl0T  100 

X  PLOT  102 

C  IWAT      CONTROL  CODE  UHICH  ACTIUATES  PORTIONS  OP  THE  PROGRAM  PLOT  104 

C  HANDLING  THE  WATER  SURFACE  SPECIFIED  BY  SUBROUTINE   PLOT  106 

C  WATER.                                            FL0T  108 

r  „                                                         PLOT  110 

C  K         INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING.              PLOT  112 

^  PLOT  114 

C  LIMIT     ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTS   PLOT  116 

C  DEFINING  EACH  BOUNDARY  USED  TO  CONFINE  THE  EXTENT  OF  PLOT  118 

C  SEARCHING  BY  BLOCK  AND  RANDOM.                      PLOT  120 

C  PLOT  122 

C  LOAD      ARRAY  CONTAINING  UALUES  OF  UNIFORM  LOAD  INTENSITY    PLOT  124 

C  FOR  EACH  BOUNDARY  LOAD  SPECIFIED.                   PLOT  126 

C  PLOT  128 


Uu(, 


c 

MAXL 

c 

c 

N 

c 

c 

c 

c 

NBND 

c 

c 

NGRID 

c 

c 

NLIMIT 

c 

c 

NN 

c 

c 

c 

NPIEZ 

c 

c 

NPZ 

c 

c 

NSURC 

c 

c 

NSURF 

c 

c 

NSURFS 

c 

c 

c 

c 

NTOP 

c 

c 

NTOP1 

c 

c 

NUMBER 

c 

c 

c 

PL 

c 

c 

PLOT 

c 

c 

c 

5CLE 

c 

c 

SIN 

c 

c 

c 

SURE 

c 

c 

c 

SURF 

c 

c 

c 

SURFS 

c 

c 

c 

SYMBOL 

c 

c 

c 

W 

c 

c 

WIDTH 

c 

c 

c 

X 

c 

c 

XL 

c 

c 

MAXIMUM  INTENSITY  OF  THE  BOUNDARY  LOADS  SPECIFIED. 

UARIABLE  USED  TO  TEMPORARILY  STORE  THE  NUMBER  OF 
POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE.  ALSO  USED 
AS  INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTION. 

TOTAL  NUMBER  OF  PROFILE  BOUNDARIES. 

NUMEER  OF  BOXES  SPECIFIED. 

NUMBER  OF  SURFACE  GENERATION  LIMIT  BOUNDARIES. 

UARIABLE  USED  TO  TEMPORARY  STORE  AN  ARRAY  UARIABLE 
FOR  A  DO  STATEMENT. 

NUMBER  OF  POINTS  DEFINING  THE  WATER  SURFACE. 

NUMBER  OF  PIEZOMETRIC  SURFACES  DEFINED. 

NUMBER  OF  BOUNDARY  LOADS  SPECIFIED. 

NUMBER  OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 

ARRAY  CONTAINING  UALUE3  OF  THE  NUMBER  OF  POINTS 
DEFINING  EACH  OF  THE  TEN  MOST  CRITICAL  TRIAL 
SURFACES. 

NUMBER  OF  GROUND  SURFACE  BOUNDARIES. 

NTOP  +  1 

EXTERNAL  SUBROUTINE  THAT  ACTIUATES  THE  PLOTTING  PEN 
TO  PLOT  NUMBERS. 

A  SCALED  BOUNDARY  LOAD. 

EXTERNAL  SUBROUTINE  USED  TO  MOUE  A  PLOTTING  PEN  TO  A 
NEW  POINT. 

SCALE  USED  FOR  PLOTTING. 

STANDARD  FUNCTION  THAT  CALCULATES  THE  SINE  OF  AN 
ANGLE. 

ARRAY  CONTAINING  X  COORDINATES  OF  THE  END  POINTS 
DEFINING  THE  EXTENT  OF  LOADING. 

ARRAY  CONTAINING  THE  X  AND  Y  COORDINATES  OF  POINTS 
DEFINING  A  TRIAL  FAILURE  SURFACE. 

ARRAY  CONTAINING  SETS  OF  COORDINATE  POINTS  DEFINING 
EACH  OF  THE  TEN  MOST  CRITICAL  TRIAL  SURFACES. 

EXTERNAL  SUBROUTINE  THAT  ACTIUATES  THE  PLOTTING  PEN 
TO  PLOT  CHARACTERS  OR  ON-CENTER  SYMBOLS. 

SCALED  WIDTH  OF  A  BOX  FOR  FOR  SLIDING  BLOCK  SEARCH. 

ARRAY  CONTAINING  THE  UALUES  OF  THE  WIDTH  OF  EACH 
BOX. 

X  COORDINATE  OF  GEOMETRY  POINT  TO  BE  PLOTTED. 

ARRAY  CONTAINING  UALUES  OF  THE  X  COORDINATE  OF  THE 
LEFT  END  OF  EACH  BOX  CENTERLINE. 


PLOT  130 
PLOT  132 
PLOT  134 
PLOT  136 
JUL7GEB0 
PLOT  138 
PLOT  140 
PLOT  142 
PLOT  144 
PLOT  146 
PLOT  148 
PLOT  150 
AUG76EB0 
AUG7EEB0 
AUG76EE0 
PLOT  152 
PLOT  154 
JUL7GEB0 
JUL76EB0 
PLOT  156 
PLOT  158 
FLOT  160 
PLOT  162 
PLOT  164 
PLOT  166 
PLOT  168 
PLOT  170 
PLOT  172 
PLOT  174 
PLOT  176 
PLOT  178 
N0U76EE0 
HOU76EB0 
N0U76EB0 
PLOT  180 
PLOT  182 
PLOT  184 
PLOT  185 
PLOT  188 
PLOT  190 


PLOT  192 
PLOT  194 
PLOT  196 
PLOT  198 
PLOT  200 
PlOT  202 
PLOT  204 
PLOT  2C6 
PLOT  208 
PLOT  210 
PLOT  212 
PcOT  214 
PLOT  216 
N0'J76EB0 
N0U76EB0 
N0U7SEB0 
PLOT  218 
PLOT  220 
PLOT  222 
PLOT  224 
FLOT  226 
FLOT  228 
PLOT  230 
PLOT  232 
PLOT  234 
PLOT  236 


l»97 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


c 
c 

c 
c 
c 

c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


XPIEZ 


XR 


ARRAY  CONTAINING  X-COORDINATES  OF  POINTS  DEFINING 
WATER  SURFACE. 


XI 


YL 


YPIE2 


YR 


YSURC 


ARRAY  CONTAINING  UALUES  OF  THE  X  COORDINATE  OF  THE 
RIGHT  END  OF  EACH  BOX  CENTERLINE. 


SCALED  X  COORDINATE  OF  A  CORNER  0 
BLOCK  SEARCH. 


Y  COORDINATE  OF  GEOMETRY  POINT  TO  BE  PLOTTED. 

ARRAY  CONTAINING  UALUES  OF  THE  Y  COORDINATE  OF  THE 
LEFT  END  OF  EACH  BOX  CENTERLINE. 

ARRAY  CONTAINING  Y-COORDINATES  OF  POINTS  DEFINING 
WATER  SURFACE. 

ARRAY  CONTAINING  UALUES  OF  THE  Y  COORDINATE  OF  THE 
RIGHT  END  OF  EACH  BOX  CENTERLINE. 


ARRAY  CONTAINING  THE  CALCULATED  Y 
ENDS  OF  THE  BOUNDARY  LOADS  ON  THE 


PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 

F  A  BOX  FOR  SLIDING  PLOT 

PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 

COORDINATES  OF  THE  PLOT 

GROUND  SURFACE. 


Yl 


SCALED  Y  COORDINATE  OF 
BLOCK  SEARCH. 


PLOT 
PLOT 
A  CORNER  OF  A  BOX  FOR  SLIDING  PLOT 

PLOT 
PLOT 

PLOT 

FL0T 


COMMON  /BLKOl^IANGL.  IBLK, IEXIT. ICIPC. ILIMIT. IPLOT, IREAD. ISEARC. 
1        IBLK2.IS0IL, ISTR, ISURC. ISURF. IWAT. RD, TOL 
COMMON  /BLK02/BNDS(100.4),C(20).GAMMA(20),GSAT(20).  ITP( 100 ) .  NEND. 
1  NSOIL . NTOP, PH I ( 20 ) . RUl 20 ) .  CU( 20 ) .  NP (  20 ) 

-"BLK03/UUAT .  NPZ.  NP  I EZ  ( 1 0  ) .  XPI EZ  ( 1 0 ,  40  ) .  YP I EZ  (  1 0 .  4  0  ) 
/BLK04/DCLTA(10),LOAD(10).NSURCSURC(10.2j,1iSUPC(  10.2) 
/BLK05/NSURF,SURF( 100.2) 
/BLK06/LIMIT(20,4).NLIMIT,NLMT 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 


'BLK 12'ANGSl ,  ANGS2.  BPT.  EPT,  FRTYFU.  FS.  FSS( 12 ) , JJ, NSUPF5C 12 ) , PLOT 


1  PERPEN, SURFS( 100. 2, 12) . TSURF, YBPT, YEPT, YMIN 

COMMON  /ELK13/NCRID.UIIDTH(10).XL(10),XR(10).YL(10).YRUO) 
COMMON  /BLK14/SCLE 
EOUIUALENCE  (DX.X1 ), (DY,  Yl ) 
REAL  LIMIT. LOAD. MAXL 


CHECK  IF  FIRST  PLOT 


PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT  324 

PLOT  32G 


238 

240 

242 

244 

245 

248 

250 

252 

254 

256 

258 

2S0 

2G2 

2B4 

265 

268 

270 

272 

274 

27B 

278 

280 

282 

284 

28B 

268 

290 

232 

234 

29S 

298 

300 

302 

304 

30B 

308 

310 

312 

314 

31B 

318 

320 

322 


IF(IPLOT.EQ.O)GO  TO  2 


IF  NOT,  MAKE  PAGE  MARK  AND  POSITION  NEW  ORIGIN 


CALL  PLOTC14..0..-3) 
CALL  PLOTC-2.5.0..3) 
CALL  PL0T(-2.5.-1.4,2) 
2  IPLOT=l 


PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT  340 
PLOT  342 
PLOT  344 
PLOT  34B 
PLOT  348 
PLOT 


328 
330 
332 
334 
33G 
338 


SET  UP  AXES 


CALL  AXIS(0..0.,6HX-AXISr-G.8.,0.,O..SCLE.O) 
CALL  AXIS(0.,0..BHY-AXIS.B.5.,90..0.,SCLE.-1) 


PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 


350 
352 
354 
356 
358 
3G0 
362 
3G4 
366 
368 


UgB 


c 
c 
c 
c 


c 
c 
c 

c 
c 


c 

c 
c 
c 
c 


PLOT  PROFILE  BOUNDARIES 


X=BNDSClil)/SCLE 

Y=BNDS(1.2VSCLE 
CALL  PL0T(X,Y,3) 
DO  20  I=l,NTOP 
X=BNDS(I,3)/'SCLE 
Y=BNDS(I,4)/SCLE 
CftLL   PL0T(X,Y,2) 

20  CONTINUE 
IF(NTOP.EO.NBND)GO  TO  21 
NTOPl=NTOP+l 

DO  22  I=NT0P1,NBND 
X=BNDS(I,1)/SCLE 
Y=BNDS(I.2)'SCLE 
CftLL  PL0T(X.Y,3) 
X=BNDS(I.3)/SCLE 
Y=BNDS(I.4)/SCLE 
CALL  PL0T(X,Y,2) 
22  CONTINUE 

21  IF(IUAT.EQ.O)GO  TO  23 


PLOT  UftTER  SURFACE,  IF  APPLICABLE 


DO  27  N=1,NPZ 

X=XPIEZ(N,1)/SCLE 

Y=YPIEZ(N.1VSCLE 

CALL  SYMEOL(X,Y,0.07, lHU.O.il) 

CALL  PL0TCX.Y.3) 

NN=NPIEZ(N) 

DO  24  1=2, NN 

X=XPIEZ(N.I)/-SCLE 

Y=YPIEZ(N,I)/5CLE 

CALL  PLOT(X,Y,2) 

CftLL  SYMBOL(X,Y,0.07,lHW.0.rl) 

CALL  PLOT(X,Y,3) 
24  CONTINUE 
2?  CONTINUE 
23  IF(ILIMIT.EQ.0)GO  TO  25 


PLOT  SEARCHING  BOUNDARIES,  IF  APPLICABLE 


DO  2B  I=1.NLIMIT 

X=LIMIT(I,1)/SCLE 

Y=LIMIT(I,2)/SCLE 

CALL  SYMEOL(X,Y,0.07,lHL,0.tl) 

CALL  PL0T(X.Y,3) 

X=LIMIT(I,3VSCLE 

Y=LINIT(I,4)/SCLE 

CALL  PL0TCX.Y.2) 

CALL   SYMEOL(X,Y,0.07.1HL,0.f 1) 

CALL  PLOTCX.Y.3) 
2G  CONTINUE 
25  IF(ISURC.EQ.0)GO  TO  3 


PLOT 

370 

PLOT 

372 

PLOT 

374 

PLOT 

37E 

PLOT 

378 

PLOT 

380 

PLOT 

3G2 

PLOT 

384 

PLOT 

38G 

PLOT 

3B8 

PLOT 

330 

PLOT 

332 

PLOT 

384 

PLOT 

33G 

PLOT 

398 

PLOT 

400 

PLOT 

402 

PLOT 

404 

PLOT 

40G 

PLOT 

408 

FLOT 

410 

PLOT 

412 

PLOT 

414 

PLOT 

41G 

PLOT 

418 

PLOT 

420 

PLOT 

422 

PLOT 

424 

PLOT 

425 

PLOT 

42G 

PLOT 

428 

PLOT 

429 

PLOT 

430 

PLOT 

431 

PLOT 

432 

PLOT 

434 

PLOT 

43G 

PLOT 

437 

PLOT 

438 

PLOT 

438 

PLOT 

440 

PLOT 

441 

PLOT 

442 

PLOT 

444 

PLOT 

44G 

PLOT 

448 

PLOT 

450 

PLOT 

452 

PLOT 

454 

PLOT 

45G 

PLOT 

458 

PLOT 

459 

PLOT 

4G0 

PLOT 

4G2 

PLOT 

4G4 

PLOT 

4G5 

PLOT 

4GG 

PLOT 

4G7 

PLOT 

4G8 

PLOT 

470 

PLOT 

472 

1(90 


C 

c 
c 
c 
c 


PLOT  SURCHARGE  BOUNDARY  LOADS.  IT  APPLICABLE: 


MAXL=L0AD(1) 
IF(NSURC.EQ.1)G0  TO  4 
DO  7  1=2,NSURC 
IF(L0AD(I).GT.t1AXL)MAXL=L0AD(i: 

7  CONTINUE 

4  DO  8  I=1.NSURC 
X=5URC(I,1)/SCLE 
Y=YSURC(I.  D/SCLE 
CALL  SYf1BOL(X.Y.0.07,lHP,0..1) 
CALL  PL0T(X.Y,3) 
PL=.3«L0AD(I)/MAXL 
DX=PL«SIN(DELTA(D) 
DY=PL«COS(DELTA(D) 
X=X-DX 
Y=Y+DY 

CALL  PL0TCX.Y.2) 
CALL  SYMBOL(X,Y,0.07.1HP.0..1) 
CALL  PL0T(X,Y,3) 
X=SURC(I,2)/SCLE-DX 
Y=YSURC(I.2)/SCLE+DY 
CALL  PL0TCX.Y.2) 
CALL  SYMB0L(X.Y,0.07.1HP.0.il) 
CALL  PL0TCX.Y.3) 
X=X+DX 
Y=Y-DY 

CALL  PL0TCX.Y.2) 
CALL  SYMBOL(X,Y,0.07,1HP.O.»1) 

8  CONTINUE 


PLOT  SEARCH  BOXES  FOR  BLOCK.  IF  APPLICABLE 


3    IF(IBLK.EQ.O)GO   TO   9 
DO   10    I=1.NGRID 
W=WIDTH(I)/SCLE 
X1=XL(IVSCLE 
Yl=YL(IVSCLE+U/2. 
CALL   PL0T(X1,Y1,3) 
Y=Y1-U 

CALL  PL0T(X1,Y.2) 
X=XR(I)/SCLE 
Y=YR(I)/SCLE-W/2. 
CALL  PL0TCX.Y.2) 
Y=Y+U 

CALL  PL0TCX.Y.2) 
CALL  PL0T(X1,Y1,2) 
LO  CONTINUE 
9  IF (ISEARC.EQ.l) RETURN 

CALL  SYMBOLC1.5,5.7,0.1,40HFACTOR  OF  SAFETY  FOR  SPECIFIED  SURFACE 
I=»0.i40) 
CALL  NUMBERC4.95,5.7,0.1,FS,0..4HF7.3) 


PLOT 

474 

PLOT 

47G 

PLOT 

478 

PLOT 

480 

PLOT 

482 

PLOT 

484 

PLOT 

48G 

PLOT 

488 

PLOT 

490 

PLOT 

492 

PLOT 

494 

PLOT 

49G 

PLOT 

497  - 

PLOT 

498 

PLOT 

500 

PLOT 

502 

PLOT 

504 

PLOT 

50E 

PLOT 

5C8 

PLOT 

509 

PLOT 

510 

PLOT 

511  - 

PLOT 

512 

PLOT 

514 

PLOT 

515 

PLOT 

51G 

PLOT 

517  - 

PLOT 

518 

PLOT 

520 

PLOT 

522 

PLOT 

523  - 

PLOT 

524 

PLOT 

52G 

PLGT 

528 

PLOT 

530 

PLOT 

532 

PLOT 

534 

PLOT 

53G 

PLOT 

533 

PLOT 

540 

PLOT 

542 

PLOT 

544 

PLOT 

545 

PLOT 

548 

PLOT 

550 

PLOT 

552 

PLOT 

554 

PLOT 

55G 

PLOT 

558 

PLOT 

5G0 

PLOT 

5G2  - 

PLOT 

5G3 

PLOT 

564  s 

PLOT 

5G5  ~ 

PLOT 

5GG  - 

Fi_or 

5G7  - 

PLOT 

5GE 

500 


c     •••••••••••• 

ENTRY  PL0TN2 
C     •.«••••••••• 

c 

c   

C   PLOT  INDIUIDUAL  TRIAL  FAILURE  SURFACE 
c   

C 

X=SURF(1.1)/'SCLE 

Y=SURF(1,2)/SCLE 

CALL  PL0T(X.Yt3) 

DO  5  I=2,NSURF 

X=SURF(I,1VSCLE 

Y=SURF(I,2)-'SCLE 

CALL  PL0TCX.Y.2) 
5  CONTINUE 

RETURN 
C 
C     •••«••••»••• 

ENTRY  PL0TN3 
C     • *»*«» 

c 

c   

C   PLOT  THE  TEN  MOST  CRITICAL  TRIAL  FAILURE  SURFACES 

C 

X=SURFS(1,1,1)/'SCLE 
Y=SURFS(1.2.1)/SCLE 
CALL  SYMBOL(X,Y.0.07,11,0..-1) 
N=NSURFS(1) 
DO  11  1=2. N 
X=SURFS(I,1.1)/SCLE 
Y=SUPFS(I.2.1)/SCLE 
CALL  SYMBOLCX.Y.0.07. 11.0..-2) 
11  CONTINUE 
DO  G  K=2.10 
X=SURFS(1.1,K)/SCLE 
Y=SURFS(1,2,K)/SCLE 
CALL  PL0T(X.Y,3) 
N=NSURFS(K) 
DO  B  1=2. N 
X=SURFS(I.1,K)/SCLE 
Y=SURFS(I.2.K)/SCLE 
CALL  PLDTCX.Y.2) 
B  CONTINUE 
RETURN 
END 


PLOT 

570 

PLOT 

572 

PLOT 

574 

PLOT 

57B 

PLOT 

578 

PLOT 

580 

PLOT 

582 

PLOT 

584 

PLOT 

58B 

PLOT 

588 

PLOT 

590 

PLOT 

522 

PLOT 

594 

PLOT 

59B 

PLOT 

598 

PLOT 

600 

PLOT 

E02 

PLOT 

B04 

PLOT 

BOB 

PLOT 

BC8 

PLOT 

BIO 

PLOT 

BI2 

PLOT 

B14 

PLOT 

61B 

PLOT 

B18 

PLOT 

G20 

PLOT 

622 

PLOT 

624 

PLOT 

626 

PLOT 

628 

PLOT 

630 

PLOT 

632 

PLOT 

634 

PLOT 

636 

PLOT 

638 

PLOT 

640 

PLOT 

642 

PLOT 

644 

PLOT 

64G 

PLOT 

648 

PLOT 

650 

plot 

652 

PLOT 

654 

PLOT 

656 

PLOT 

E58 

PLOT 

660 

PLOT 

662 

501 


c 

SUBROUTINE 

PLTN 

PLTN 
-PLTN 

2 

4 

c 
c 

SUBROUTINE  PLTN 

-PLTN 
PI  Th 

G 
H 

c 
c 
c 

t'l  IN 

1  '1  IN 

PL  IN 

1p 

1 1' 

1<1 

c 

FUNCTIONS  - 

PLTN 

IB 

c 

PLTN 

18 

c 

BUILDS  1 

WD  PRINTS  THE  PRINT  CHARACTER  ARRAY  CONTAINING  THE 

PLTN 

20 

c 

PROBLEM 

GEOMETRY  DISPLAYED  WITH  PRINT  CHARACTERS. 

PLTN 

22 

c 
c 

PLTN 

24 

34 

c 

PLTN 

3E 

c 

DEFINITIONS  ■ 

PLTN 

38 

c 

PLTN 

4  0 

c 

AXIS 

AN  ARRAY  CONTAINING  THE  X  AXIS  LABEL. 

PLTN 

42 

c 

PLTN 

44 

c 

BNDS 

AN  ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTSF 

4E 

c 

DEFINING  THE  GROUND  SURFACE  AND  SUBSURFACE 

PLTN 

43 

c 

BOUNDARIES. 

PLTN 

5C 

c 

PLTN 

52 

c 

I 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

PLTN 

54 

c 

PLTN 

5E 

c 

II 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

PLTN 

58 

c 

1 

PLTN 

GO 

c 

IJ 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

PLTN 

E2 

c 

PLTN 

E4 

c 

ILIMIT 

CONTROL  CODE  UIHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM 

PLTN 

GS 

c 

AFFECTED  BY  SEARCHING  LIMITS  ESTABLISHED  BY 

PLTN 

GS 

c 

SUBROUTINE  LIMITS. 

PLTN 

70 

c 

PLTN 

72 

c 

ISEARC 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM 

PLTN 

74 

c 

AFFECTED  BY  THE  SEARCHING  SUBROUTINE  RANDOM. 

PLTN 

7B 

c 

PLTN 

78 

c 

ISURC 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM 

PLTN 

80 

c 

HANDLING  THE  SURCHARGE  LOADS  SPECIFIED  BY  SUBROUTINE 

PLTN 

82 

c 

LOADS. 

PLTN 

84 

c 

PLTN 

BE 

c 

IWAT 

CONTROL  CODE  WHICH  ACTIUATES  PORTIONS  OF  THE  PROGRAM 

PLTN 

83 

c 

HANDLING  THE  WATER  SURFACE  SPECIFIED  BY  SUBROUTINE 

PLTN 

SO 

c 

WATER. 

PLTN 

92 

c 

PLTN 

94 

c 

IX 

HORIZONTAL  POSITION  OF  POINT  WITHIN  PLOT  ARRAY. 

PLTN 

9E 

c 

PLTN 

98 

c 

I XX 

STORES  UALUE  OF  IX. 

PLTN 

100 

c 

PLTN 

102 

c 

IY 

UERTICAL  POSITION  OF  POINT  WITHIN  PLOT  ARRAY. 

PLTN 

104 

c 

PLTN 

10E 

c 

IVY 

STORES  UALUE  OF  IY. 

PLTN 

108 

c 

PLTN 

110 

c 

J 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

PLTN 

112 

c 

PLTN 

114 

c 

JJ 

DO  LOOP  INDEX. 

PLTN 

HE 

c 

PLTN 

118 

c 

K 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

PLTN 

120 

c 

PLTN 

122 

c 

KK 

INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTING. 

PLTN 

124 

c 

PLTN 

12E 

c 

LIMIT 

ARRAY  CONTAINING  THE  COORDINATES  OF  THE  END  POINTS 

PLTN 

128 

c 

DEFINING  EACH  BOUNDARY  USED  TO  CONFINE  THE  EXTENT  CF 

PLTN 

130 

c 

SEARCHING  BY  BLOCK  AND  RANDOM. 

PLTN 

132 

c 

PLTN 

134 

c 

N 

UARIABLE  USED  TO  TEMPORARILY  STORE  THE  NUMBER  OF 

PLTN 

13E 

c 

POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE.  ALSO  USED 

PLTN 

138 

c 

AS  INDEX  UARIABLE  FOR  ARRAY  SUBSCRIPTION. 

JUL7SEBD 

c 

PLTN 

140 

c 

NBND 

TOTAL  NUMBER  OF  PROFILE  BOUNDARIES. 

PLTN 

142 

c 

PLTN 

144 

r;0? 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


NLIMIT    NUMBER  OF  SURFACE  GENERATION  LIMIT  BOUNDARIES. 


NN 


NPIEZ 
NPZ 
NSURC 
NSURF 


NSURFS 


PLT 
POSTN 


SCL 
SCLE 


SURC 


SURF 


SURFS 


SYMB 


TOL 
XPIE2 


YPIEZ 


YSURC 


PLTN  14G 

PLTN  148 
AUG76EEO 
AUG76EB0 
AUG76EB0 

PLTN  150 

PLTN  152 
JJL76EB0 
JUL7GEBD 

PLTN  154 

PLTN  156 

PLTN  158 

PLTN  1G0 

PLTN  162 

PLTN  164 

PLTN  166 

PLTN  168 

PLTN  170 

PLTN  172 

SUBROUTINE  WHICH  DETERMINES  THE  POSITION  OF  A  SCALED  PLTN  174 

COORDINATE  POINT  WITHIN  THE  CHARACTER  PLOT  ARRAY.     PLTN  176 

PLTN  17B 

FLTN  180 

PLTN  182 

PLTN  184 

PLTN  186 

PLTN  188 

PLTN  190 

PLTN  192 

PLTN  154 

PLTN  196 

PLTN  198 

PLTN  200 

PLTN  202 

PLTN  204 

ARRAY  WHICH  CONTAINS  THE  CHARACTERS  THAT  ARE  USED  FORPLTN  206 

PLOTTING.                                         PLTN  208 

PLTN  210 

PLTN  212 

PLTN  214 

PLTN  216 

PLTN  218 

PLTN  220 

PLTN  222 

PLTN  224 

PLTN  225 

COORDINATES  OF  THE  PLTN  228 

PLTN  230 

PLTN  232 

-PLTN  234 

-PLTN  236 

PLTN  238 

PLTN  240 

PLTN  242 

PLTN  244 

PLTN  246 

PLTN  248 

PLTN  250 

PLTN  252 

PLTN  254 


UARIABLE  USED  TO  TEMPORARY  STORE  AN  ARRAY  UARIAELE 
FOR  A  DO  STATEMENT. 

NUMBER  OF  POINTS  DEFINING  THE  WATER  SURFACE. 

NUMBER  OF  PIEZOMETRIC  SURFACES  DEFINED. 

NUMBER  OF  BOUNDARY  LOADS  SPECIFIED. 

NUMBER  OF  POINTS  DEFINING  A  TRIAL  FAILURE  SURFACE. 

ARRAY  CONTAINING  UALUES  OF  THE  NUMBER  OF  POINTS 
DEFINING  EACH  OF  THE  TEN  MOST  CRITICAL  TRIAL 
SURFACES. 

ARRAY  CONTAINING  THE  CHARACTER  PLOT  MATRIX. 


ARRAY  WHICH  CONTAINS  THE  TICK  MARK  LABLES. 

SCALE  USED  FOR  PLOTTING. 

ARRAY  CONTAINING  X  COORDINATES  OF  THE  END  POINTS 
DEFINING  THE  EXTENT  OF  LOADING. 

ARRAY  CONTAINING  THE  X  AND  Y  COORDINATES  OF  POINTS 
DEFINING  A  TRIAL  FAILURE  SURFACE. 

ARPAY  CONTAINING  SETS  OF  COORDINATE  POINTS  DEFINING 
EACH  OF  THE  TEN  MOST  CRITICAL  TRIAL  SURFACES. 


TOLERANCE  CONSTANT  TO  ACCOUNT  FOR  MACHINE  ROUNDING 


ARRAY  CONTAINING 
WATER  SURFACE. 

ARRAY  CONTAINING 
WATER  SURFACE. 


X-COORDINATES  OF  POINTS  DEFINING 


Y-COORDINATES  OF  POINTS  DEFINING 


ARRAY  CONTAINING  THE  CALCULATED  Y 

ENDS  OF  THE  BOUNDARY  LOADS  ON  THE  GROUND  SURFACE. 


COMMON  /BLK01/IANGL, IBLK, IEXIT, ICIRC. ILIMIT, IPLOT,  IREAD.  ISEARC, 

1  IBLK2, ISOIL, ISTR, ISURC.  ISURF,  IWAT,  RD.  TOL 

COMMON  /BLK02/BNDS(100.4).C(20).GAMMA(20).GSAT(20).ITP(100i.NBND, 
1  NSOIL,NTOP,PHI(20),RU(20),CU(20).NP(20) 

COMMON  /BLK03/UWAT,NPZ,NPIEZC10),XPIEZ(10.40).YPIEZ(10.40) 

COMMON  /BLK04/DELTA(10).LOAD(10),NSURC.SURC(10,2).YSURC(10.2) 

COMMON  /BLK05/NSURF,SURF(100,2) 

COMMON  /ELK0E/LIMIT(20.4),NLIMIT,NLMT 


COMMON  /BLK12/ANGS1 . ANGS2. BPT, EPT, FRTYFU, FS, FSS( 12 ) , JJ, NSUPFS( 12) . PLTN  256 


1  PERPEN, SURFS (100.2.12), TSURF, YBPT , YEPT . YMI N 

COMMON  /BLK14/-SCLE 

DIMENSION  PLT(49,51).SYMB(19),AXIS(9).SCLO) 

REAL  LIMIT 

DATA  SYMB/1HJ,1H2,1H3,1H4,1H5,1H5,1H7,1H8. 1H9. 1H0, 1H  , 1K+.1H- 
1    1HU,  1HL.1HS.  1H..1H//' 

DATA  AXIS/1HX,1H  , 1HA, 1HX. 1HI , 1HS. 1H  , 1HF. 1HT/ 


PLTN  25B 

PLTN  260 

PLTN  2B2 

PLTN  264 

,1H»,PLTN  266 

PLTN  268 

PLTN  270 
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C 
C 

c 
c 
c 


c 
c 
c 

c 
c 


c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 
c 

c 
c 
c 
c 
c 
c 


c 
c 

c 
c 
c 
c 
c 
c 
c 


SET  UP  HORIZONTAL  AXIS 


DO  2  1=2.48 
PLT(I.1)=SYMB(13) 

2  CONTINUE 

DO  3  1=1. 49, B 
PLT(I,1)=SYMB(12) 

3  CONTINUE 


SET  UP  UERTICAL  AXIS 


DO  4  J=2,50 
PLT(1.J)=SYMB(13) 

4  CONTINUE 

DO  5  J=1.51.10 
PLT(1.J)=SYMB(12) 

5  CONTINUE 


INITIATE  REMAINDER  OF  GRAPH  WITH  BLANKS 


DO  B  1=2.49 
DO  B  J=2.51 
PLT(I.J)=SYMB(11) 
B  CONTINUE 


CALCULATE  TICK  MARK  LABLES 


SCLC1)=T0L 
DO  18  1=2.9 
SCL(I)=SCLCI-1)+SCLE 
18  CONTINUE 
RETURN 


ENTRY  PLT2 


POSITION  PDINTS  DEFINING  A  GENERATED  TRIAL  FAILURE  SURFACE 


DO  11  I=1,NSURF 

CALL  POSTN(SURF(I, 1 ). SURF(I,2) . IX. IY) 
PLTCIX. IY)=SYMB(18) 
11  CONTINUE 
RETURN 


ENTRY  PLT3 


POSITION  POINTS  DEFINING  THE  TEN  MOST  CRITICAL 
TRIAL  FAILURE  SURFACES.  IF  APPLICABLE 


DO  14  K=1.10 


PLTN 

272 

PLTti 

274 

PLTN 

27G 

PLTN 

278 

PLTN 

280 

PLTN 

282 

PLTN 

284 

PLTN 

28G 

PLTN 

288 

PLTN 

290 

PLTN 

232 

PLTN 

294 

PLTN 

2SE 

PLTN 

298 

PLTN 

300 

PLTN 

302 

PLTN 

304 

PLTN 

308 

PLTN 

308 

PLTN 

310 

PLTN 

312 

PLTN 

314 

PLTN 

316 

PLTN 

318 

PLTN 

320 

PLTN 

322 

PLTN 

324 

PLTN 

328 

PLTN 

328 

PLTN 

330 

PLTN 

332 

PLTN 

334 

PLTN 

33G 

PLTN 

338 

PLTN 

340 

PLTN 

342 

PLTN 

344 

PLTN 

348 

PLTN 

348 

PLTN 

350 

PLTN 

352 

PLTN 

354 

PLTN 

35G 

PLTN 

358 

PLTN 

3G0 

PLTN 

3G2 

PLTN 

3G4 

PLTN 

3GE 

PLTN 

3B8 

PLTN 

370 

PLTN 

372 

PLTN 

374 

PLTN 

37G 

PLTN 

378 

PLTN 

380 

PLTN 

3S2 

PLTN 

384 

PlTN 

3SG 

PLTN 

388 

PLTN 

390 

FLTN 

392 

PLTN 

394 

PLTN 

39G 

PLTN 

398 

PLTN 

400 

PLTN 

402 

PLTN 

404 
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C 
C 
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c 

c 

c 
c 

c 

c 
c 
c 
c 


c 
c 
c 
c 
c 
c 


c 
c 

c 
c 
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POSITION  IN  ORDER  OF  LEAST  CRITICAL  FIRST 


KK=11-K 
N=NSURFS(KK) 
DO  14  1  =  1. N 

CALL  POSTNCSURFSCI. 1. KK ) .SURFSC I. 2. KK ). IX. IY) 
PLT(IX.IY)=SYMB(KK) 
14  CONTINUE 
RETURN 


ENTRY  PLT4 


IF(IUAT.EQ.0)GO  TO  3 


POSITION  POINTS  DEFINING  GROUNDWATER  TABLE.  IF  APPLICABLE 


DO  22  N=1.NPZ 
NN=NPIEZ(N) 
DO  7  1=1. NN 

CALL  POSTN(XPIEZ(N,I),YPIEZ(N,I),IX.IY) 
PLTCIX, IY)=SYMB( 15) 
7  CONTINUE 
22  CONTINUE 
9  IFCILIMIT.EQ.OGO  TO  12 


POSITION  BOUNDARY  END  POINTS  DEFINING 
SEARCHING  LIMITS.  IF  APPLICABLE 


DO  13  I=1.NLIMIT 

DO  13  J=2.4,2 

CALL  POSTN(LIMIT(I,J-l),LiriIT(I.J),IX.IY) 

PLTCIX,  IY)=SYMBC IE) 
13  CONTINUE 
12  IF(ISEARC.NE.0)CO  TO  21 


POSITION  POINTS  DEFINING  A  SPECIFIED  TRIAL  FAILURE  SURFACE 


DO  20  I=1.NSURF 

CALL  POSTNCSURFCI, 1 ) . SURFC 1,2) , IX. IY) 

PLTCIX. IY)=SYMB(17) 

20  CONTINUE 

21  IFCISURC.EQ.0)GO  TO  10 


POSITION  POINTS  DEFINING  EXTENT  OF  SURCHARGE  BOUNDARY  LOADS 


CALL  P05TN(SURC(1.1).YSURC(1.1).IX. IY) 

PLT(IX.IY+2)=SYMB(1) 

PLTCIX, IY+1)=SYMBC19) 

IXX=IX 

IYY=IY 

CALL  P0STNCSURCC1,2),YSURCC1,2),IX,IY) 

IFCIX.GT.IXX)GO  TO  15 

PLTCIXX, IYY+1)=SYMB(1) 

PLTC IXX. IYY+2)=SYMB( 19) 

PLT(IXX.IYY+3)=SYMBC1) 

GO  TO  17 


PLTN  40B 
PLTN  408 
PLTN  410 
PLTN  412 
PLTN  414 
PLTN  41G 
PLTN  416 
PLTN  420 
PLTN  422 
PLTN  424 
PLTN  42G 
PLTN  428 
PLTN  430 
PLTN  432 
PLTN  434 
PLTN  43E 
PLTN  438 
PLTN  440 
PLTN  442 
PLTN  444 
PLTN  44B 
PLTN  447 
PLTN  448 
PLTN  449 
PLTN  450 
PLTN  452 
PLTN  454 
PLTN  45B 
PLTN  457 
PLTN  458 
PLTN  4B0 
PLTN  4G2 
PLTN  4B4 
PLTN  4RG 
PLTN  468 
PLTN  470 
PLTN  472 
PLTN  474 
PLTN  476 
PLTN  478 
PLTN  480 
PLTN  482 
PLTN  484 
PLTN  486 
PLTN  488 
PLTN  490 
PLTN  492 
PLTN  494 
PLTN  426 
PLTN  498 
PLTN  500 
PLTN  502 
PLTN  504 
PLTN  506 
PLTN  508 
PLTN  510 
PLTN  512 
PLTN  514 
FLTN  516 
PLTN  518 
PLTN  520 
PLTN  522 
PLTN  524 
PLTN  526 
PLTN  528 
PLTN  530 
PLTN  532 
PLTN  534 
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C 

c 
c 
c 
c 


15  PLT(IX.IY+1)=SYMB(1) 

PLT(IX.IY+2)=SYMB(19) 

IXX=IX 

IYY=IY 
17  IF(NSURC.EQ.1)G0  TO  10 

DO  23  I=2.N5URC 

COLL  P0STM(SURC(I.1).YSURC(I.1).IX,IY) 

IF(IX.GT.IXX)GO  TO  24 

PLT( IXX. IYY+1 )=SYMB( 1-1 ) 

PLT(IXX,IYY+2)=SYMB(19) 

PLT(IXX.IYY+3)=SYMB(I) 

GO  TO  25 

24  PLT(IX.IY+2)=SYMB(I) 
PLT(IX,IY+1)=SYMB(19) 
IXX=IX 

IYY=IY 

25  CALL   P0STN(SURC(I,2).YSURC(I.2).IX.IY) 
IFCIX.GT.IX+OGO   TO  2B 
PLTriXX.IYY+l)=SYMB(I) 

PLTCIXX, IYY+2)=SYMB(19) 

PLT( IXX, IYY+3)=SYMB( I ) 

GO  TO  23 
2E  PLTCIX,IY+1)=SYMBU) 

PLT(IX,IY+2)=SYnB(19) 

IXX=IX 

IYY=IY 
23  CONTIMUE 


POSITION  END  PDINTS  DEFINING  PROFILE  BOUNDARIES 


10  DO  8  I=1.NBND 
DO  8  J=2.4,2 

CALL  P0STN(BNDS(I,J-1).BNDS(I.J).IX. IY) 
PLTCIX. IY)=SYMB(14) 
8  CONTINUE 


PRINT  CHARACTER  GRAPH 


URITECG.101)(SCLCI),I=1.6) 

101  F0RMAT(1H1,21X,*Y*,12X.*A     X     I     S:>M2X,*F 
1    15X.EF10.2./) 

11=0 

DO  1G  1=1.49. E 

11=11+1 

URITE(G.102)AXIS(II),SCL(II).(PLT(I,J),J=1.51) 

102  FORMATU0X.A1.F10.2.1X.51A1) 
IF(I.E0.49)G0  TO  19 

DO  IB  JJ=1.5 

IJ=I+JJ 

WRITE(B.103)(PLT(IJ.J).J=1,51) 

103  FORMAT (22X.51A1) 
IE  CONTINUE 

19  CONTINUE 
RETURN 
END 


J*,///, 


PLTN  536 
PLTN  538 
PLTN  540 
PLTN  542 
PLTN  544 
PLTN  54B 
PLTN  548 
PlTN  550 
PLTN  552 
PLTN  554 
PLTN  55B 
PLTN  558 
PLTN  5B0 
PLTN  562 
PLTN  564 
PLTN  566 
PLTN  568 
PLTN  570 
PLTN  572 
PLTN  574 
PLTN  576 
PLTN  578 
PLTN  580 
PLTN  582 
PLTN  584 
PLTN  586 
PLTN  588 
PLTN  590 
PLTN  532 
PLTN  594 
PLTN  596 
PLTN  598 
PLTN  600 
PLTN  602 
PLTN  604 
PLTN  60B 
PLTN  E08 
PLTN  G10 
PLTN  612 
PLTN  614 
PLTN  616 
PLTN  618 
PLTN  620 
PLTN  622 
PLTN  624 
PLTN  626 
PLTN  628 
PLTN  630 
PLTN  632 
PLTN  634 
PLTN  636 
PLTN  638 
PLTN  640 
PLTN  642 
PLTN  644 
PLTN  646 
PLTN  648 
PLTN  650 
PLTN  652 
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SUBROUTINE  POSTNCXX. YY. IX. IY) 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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SUBROUTINE  POSTN 


FUNCTION 


DETERMINES  THE  POSITION  OF  A  SCALED  COORDINATE  POINT  WITHIN 
CHARACTER  PLOT  ARRAY. 


DEFINITIONS 
FLOAT 

IFIX 

IX 
IY 
SCLE 

X 

XX 
Y 
YY 


STANDARD  FUNCTION  THAT  CONUERTS  AN  INTEGER  NUMBER 
A  REAL  NUMBER. 

STANDARD  FUNCTION  THAT  CONUERTS  A  REAL  NUMBER  TO  A 
INTEGER  NUMBER. 

HORIZONTAL  POSITION  OF  POINT  WITHIN  PLOT  ARRAY. 

UERTICAL  POSITION  OF  POINT  WITHIN  PLOT  ARRAY. 

SCALE  USED  FOR  PLOTTING. 

X  COORDINATE  OF  SCALED  POINT. 

X  COORDINATE  OF  POINT  TO  BE  SCALED. 

Y  COORDINATE  OF  SCALED  POINT. 

Y  COORDINATE  OF  POINT  TO  BE  SCALED. 


COMMON  /BLK14/-SCLE 

X=XX«G./SCLE+1. 

Y=YY»10./SCLE+1. 

IX=IFIX(X) 

IY=IFIX(Y) 

IF((X-FL0AT(IX)).GE..5)IX=IX+1 

IF((Y-FLDAT(IY)).GE..5)IY=IY+1 

IF(IX.LT.O)IX=0 

IF(IY.LT.O)IY=0 

RETURN 

END 


2 
4 
6 
8 
10 

;? 
14 

IB 

ie 

20 


pstn 

PSTN 

PSTN 

PSTN 

PSTN 

—PSTN 
PSTN 
PSTN 
PSTN 

THEPSTN 

PSTN  22 

PSTN  24 

PSTN  26 

PSTN  28 

PSTN  30 

PSTN  32 

TO  PSTN  34 

PSTN  3E 

PSTN  38 

PSTN  40 

PSTN  42 

PSTN  44 

PSTN  4B 

PSTN  48 

PSTN  50 

PSTN  52 

PSTN  54 

PSTN  5B 

PSTN  58 

PSTN  60 

PSTN  62 

PSTN  64 

PSTN  66 

PSTN  68 

PSTN  70 

PSTN  ?2 

PSTN  74 

PSTN  76 

PSTN  78 

PSTN  80 

PSTN  82 

PSTN  84 
PSTN 
PSTN 

PSTN  90 

PSTN  92 

PSTN  94 

PSTN  96 

PSTN  98 

PSTN  100 

PSTN  102 


8B 
88 


Cards    to   Interchange //* dd  in   STABL? 
to  Use   Program  on  an   IBM-Computer 
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DIMENSION  KEYUK  15) » ERR0RC5) . UAR< 1 00) 

REAL*8  MKEYU.KEYU 

TQL=. 001 

CALL    PLOTS<UAR.400) 

READ<5« 100>END=19)MKEYU 

IFOPRDF.EQ. 1)GD    TD    23 


5   READ<5.  101>END=23XM<I>.  1  =  1.80) 
GD    TO   24 


STBL  250 

STBL  si  STABL2 

STBL  292  Main 

STBL  310 

STBL  336 


READ  ISO 
READ  194 


Subr . 
READER 


DIMENSION   TITLE<10)»DESCR<10)»    ERROR(ll) 
113   FORMATC20A4) 
112    F0RMAT<"»  10X.;"PROBLEM   DESCRIPTION        *,  1  0A4./32X.  1  0A4.  •/> 


FRDF  ?44  „ 

PRDF  440  PROFIL 

PPOF  443 


ENTRY  INTSC2<X1.Y1.X2.Y2.X3,Y3.X4,Y4.X.Y> INTS) 


ISCT  228  INTSCT 


CALL  NUMBER  < 1. 5. 6. 0. 0. 1 . FLOATCTAL) . 0. . -1 ) 
CALL  NUMBER  (3. 8. 5. 7. 0. 1 » FSS( 1 ) . 0. » 3) 


CALL  AXISC0..O. > 6HX-AXIS. -6. 8. .  0.  .  0. >SCLEi t.i 1. 1. 0. . 125) 
CALL  AXISC0. >  0. » 6HY-AXIS. 6.5. » 1.5708. 0. .SCLE. 1. . 1» 1. 0» . 125) 

CALL  NUMBER<4.95>5.7. 0. l.FS. 0. .3) 


FUNCTION  RANF<X) 

INTEGER  XN.SEED 

DATA  XN,  SEED-' 1A384.  27487/ 

SEED=MDD<SEED«78125.XN) 

RANF=FLOAT(SEED).'FLOAT<XN) 

RETURN 

END 


RAND1 

859 

RANDOM 

PAMIU 

.Ri-.P 

PLOT 
PLCT 

364 
366 

PLOTIN 

PLOT 

567 

RANF 

RANF 

4 

R  an  dom 

RANF 

6 

Functic 

RANF 

p 

RANF 

10 

RANF 

12 

RAMF 

14 

Further:      Omit  STBL  2  and  STBL  32U  in  STABL2  Main. 


Note:      Some  of  the  above  changes   reflect  adjustment  to  use  the 
Calcorap  plotter  on   local  system   (ISHC-IBM360) .      They  may 
have  to  be   adjusted  different   for  other  systems. 
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APPENDIX  F 
STABL  ON  THE  IBM  COMPUTER 

F.l   INTRODUCTION 

The  STABL  program  is  developed  for  a  CDC  6500  computer  at  Purdue 
University.   Some  changes  were  necessary  to  transfer  the  program  to  an 
IBM  360  computer  at  the  Indiana  State  Highway  Commission's  Computer 
Center  in  Indianapolis. 

A  search  of  the  STABL  program  for  the  errors  that  caused  initial 
failures  on  the  IBM  computer  became  a  part  of  this  research. 

A  listing  of  the  changes  necessary  to  transfer  the  STABL  program 
from  the  CDC  6500  computer  to  an  IBM  360  (or  370)  computer  is  found  in 
Table  F.   The  changes  associated  with  the  plotting  directives  depend  on 
local  library  plotting  routines,  and  may  vary  from  one  computer  to 
another. 

F.2   THE  RANDOM  FUNCTION  RANF(X) 

The  CDC  computer  has  a  standard  random  function  Ranf(x),  which  in 
a  controlled  manner  picks  a  pseudo-random  number  between  0  and  1.   This 
function  is  used  in  STABL  to  generate  failure  surfaces  randomly  within 
specified  limits. 

Ranf(x)  is  not  available  from  the  IBM  computer  library,  so  a 
function  similar  to  the  CDC  random  function  was  added  to  the  IBM 
version  of  STABL.   Although  the  two  functions  are  not  exactly  the 
same,  the  results  are  usually  close. 
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During  the  error  trace  of  STABL  on  the  IBM  computer,  the  local 
Ranf(x)  function  in  STABL  was  used  on  both  computers,  to  make  exact 
comparison  possible.   It  was  observed  then  that  the  CIRCLE  and  BLOCK 
procedures  would  give  exactly  the  same  results  on  the  two  computers, 
but  not  the  RANDOM  procedure. 

The  case  was  further  investigated,  and  the  reason  for  the  difference 
is  as  follows.   The  irregular  surface  generation  routine  (RANDOM)  uses 
an  expression  for  generation  of  line  segments  that  includes  the  term 


Rd  +  R) 


where  R  =  Ranf(0).   On  the  IBM  computer,  this  expression  is  calculated  as 


R.(1  +  IW 

1 


where  R  is  a  number  in  the  random  sequence,  and  R  -  is  the  next  number 
in  the  sequence.   On  the  CDC  computer  the  same  expression  is  treated  as 


R±(1  +  V 


so  the  same  random  number  is  used  in  both  places. 

F.3  PRECISION 

Some  of  the  troubles  encountered  with  STABL  on  the  IBM  computer 
were  caused  by  the  difference  in  precision  between  the  CDC  computer 
and  the  IBM  computer . 

F.3.1  Machine  Rounding  Errors 

STABL  has  a  variable,  TOL,  that  is  used  to  account  for  machine 
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roundings.   This  tolerance  was  originally  defined  as  10   ,  which  worked 
fine  on  the  CDC  computer  that  handles  approximately  14  significant 
digits  with  single  precision  and  27  with  double.   However,  the  IBM 
computer  is  only  accurate  to  7  digits  with  single  precision  and  16  with 
double  precision. 

One  way  to  overcome  the  problem  with  machine  rounding  errors  is  to 
specify  all  variables  with  double  precision  on  the  IBM  computer.   However, 
this  increases  the  amount  of  computer  memory  required  to  execute  the 
program. 

Another  way  is  to  increase  the  tolerance,  TOL.   It  was  felt  that 
this  could  be  done  without  lowering  the  accuracy  of  the  results.   This 

proved  to  be  correct  for  the  cases  investigated  during  the  error  trace. 

-4  -3 

The  tolerance  was  first  increased  to  10   ,  and  later  to  10   ,  which 

should  be  sufficient  for  most  problems  analysed.   However,  if  the 

geometry  is  defined  with  coordinates  exceeding  999.999,  the  tolerance 

-2 
may  have  to  be  increased  to  10   to  avoid  machine  rounding  errors. 

F.3.2  Use  of  TOL 

Before  the  tolerance,  TOL,  was  changed,  its  place  and  purpose  in 
the  program  was  thoroughly  investigated. 

First  it  is  used  to  check  order  and  consistency  of  data,  e.g.,  if 
the  geometry  data  are  all  defined  within  the  first  quadrant  of  the 
coordinate  system  (value  >  -  TOL) .   It  was  particularly  here  that  the 
errors  occurred  on  the  IBM,  because  the  machine  roundings  were  larger 
than  the  tolerance. 

In  subroutine  SLICES,  TOL  is  used  to  eliminate  duplicate  divisions 
of  the  sliding  mass  into  slices.   If  the  difference  between  two  adjacent 
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division  points  is  less  than  TOL,  only  one  is  used. 

In  subroutine  INTSCT,  TOL  is  used  to  check  for  vertical  line 
segments,  parallel  lines,  and  order  of  points. 

In  the  circular  surface  generator,  TOL  defines  the  "straight  line" 

solution  in  terms  of  minimum  change  in  angle  between  adjacent  line 

-3 
segments.  A  TOL  of  10   corresponds  to  an  angle  of  0.06  degrees. 

Finally,  the  tolerance  is  used  to  define  the  (0,0)  point  {as  (TOL, 

TOL)}  on  the  print  character  plot. 

None  of  these  uses  suffers  by  increasing  the  tolerance,  as  was  done. 
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